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Section 1 
Introduction 



INTRODUCTION 



This Education Guide is intended for use in the Information 
Management System/360 classes. 

CONCEPTS. AND FACILITIES 
APPLICATION PROGRAMMING 
IMPLEMENTATION AND INTERNALS 

Section 4 of this Education Guide consists of 6 modules, as can 
be seen from the general outline in Section 3. The first five of 
these modules are intended for use in the Concepts and Facilities 
course with no hands on. Depending on facilities available, it 
may be desirable to demonstrate IMS/360 at the end of the course. 

The IMS/360 Application Programming course also makes use of the 
first five modules of Section 4 and includes hands on experience 
for the student. If it is desired to teach application 
programmers for a batch only environment, module 4 of Section 4 
(ONLINE PROCESSING) may be dropped from the course. 

The IMS/360 Implementation and Internals course consists of all 
material covered in the Application Programming course plus the 
last module of Section 4 (Implementation and Internals) with 
additional hands on experience. 

[The first week of the Application Programming course and the 
Implementation and Internals course can be a combined class. At 
the end of the first week, the Application Programming course would 
be complete and the Implementation and Internals course would continue 
the next week. 

Considerations for generating a system to be used for hands on 
classes are presented in Section 5 - Instructor Materials, 
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IMS/360 COURSES 



COURSES 


SUGGESTED 


MODULES 






TIME 


OF 








SECTION 4 


NOTES 


CONCEPTS AND FACILITIES 


2 DAYS 


1-2-3-4-5 


NO HANDS C 


APPLICATION PROGRAMMING 


4 OR 5 DAYS 


1-2-3-4-5 


HANDS ON 


IMPLEMENTATION AND INTERNALS 


7 TO 10 DAYS 


1-2-3-4-5-6 


HANDS ON 



MODULES TITLE 

1 OBJECTIVES AND PURPOSE OF IMS/360 

2 AN OVERVIEW OF IMS/360 

3 DATA LANGUAGE/I 

4 ONLINE PROCESSING 

5 FUNCTIONAL DESCRIPTION 

6 IMPLEMENTATION AND INTERNALS 



NOTE 



IN ADDITION TO THE ABOVE THREE COURSES, MODULES 1 
AND 2 CAN BE USED AS AN OVERVIEW IN A SURVEY COURSE 

IF IT IS DESIRED TO TEACH APPLICATION PROGRAMMERS 
WHO WILL NOT BE USING TELEPROCESSING, MODULE 4 CAN 
BE DROPPED FROM THE COURSE. 
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Section 2 
Course Description 
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Course Description 



SYSTEM/360 INFORMATION MANAGEMENT SYSTEM - IMPLEMENTATION AND INTERNALS 



Course Code 



U3672 



Duration - 



8 student days 



Audience 



System analysts and programmers who will be responsible for installing 
IMS/360 



Prerequisites 



Objectives 



o 



Successful completion of S/360 OS System Control for Programmers 
(H3682), S/360 OS Data Management Coding (H3667), and S/360 OS 
Advanced Coding (H3670). In addition to these courses a working 
knowledge of COBOL, PL/I, or Assembler Language is required. 

Upon successful completion of the course, the student should be able to: 

1. List the advantages of using IMS/360 and describe the difference 
between traditional data processing and the data base approach. 

2. Trace the flow of information and control through the system from 
the time a request is entered at a terminal until the response is 
received at the terminal. 



3. Write a program specification block and a batch application program 
using all Data Language/I call functions. 

4. Write a message processing program to handle input from a terminal, 
interaction with a data base, and output to a terminal. 

5. Describe the major functional areas such as System Definition, Sys- 
tem Log, Checkpoint/Restart, and Security Maintenance and their 
significance. 

6. Generate an IMS/360 system for batch or online processing for PCP 
(batch only), MFT-II, or MVT; write a data base description; create a 
data base; use the utiUties for processing the log tape; prepare control 
cards for the security maintenance program, and trace the flow of 
information and control through the major control blocks of 
IMS/360. 



O 



Requests for copies of IBM publications should be made to your IBM representative or to the IBM 
branch office serving your locality. Address comments concerning the contents of this publication to 
IBM Corporation, DPD Education Development, Education Center, Poughkeepsie, New York 12602. 

6/69 



Material Requirements 
Student Materials 
Title 

IBM System/360 Operating System COBOL 

Language 
Information Management System/360 Application 

Description Manual 
Information Management System/360 Program 

Description Manual 
Information Management System/360 System 

Operations Manual 
Information Management System/360 Machine 

Operations Manual 

Instructor Materials (in addition to the above) 

Information Management System/360 Implementation 

and Internals Education Guide 
Information Management System/360 System 

Manual 

* IBM System/360 Bibliography (A22-6822) 
*** To be released 

Abstract - 



Form No. 

C28-6516 

H20-0524 

*** 

*** 
*** 



R20-4142 



R20-4 1 42 Education Guide 



Abstract Ref. 



None 
None 
None 
None 



See Below 
None 



8^2" X 11 " Looseleaf Instructor Outline, 400 pages 
(Red Cover) 

This guide contains a detailed course outline which can be used for teaching three 
Information Management System/3 60 courses - Concepts and Facilities, Application 
Programming, and Implementation and Internals. 

Included in the guide are class exercises and paper masters which may be used in 
preparing overhead projection transparencies. 
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Course Description 



o 



SYSTEM/360 INFORMATION MANAGEMENT SYSTEM - APPLICATION PROGRAMMING 



Course Code - 



U3671 



Duration 



Audience - 



5 student days 

Application programmers who will be responsible for writing programs in 
COBOL, PL/I, or Assembler Language using Data Language/I to interact 
with a Data Base. 



O 



Prerequisites 



Objectives - 



The student should have actual programming experience in COBOL, PL/I, 
or Assembler Language 

Upon successful completion of the course, the student should be able to: 

1 . List the advantages of using IMS/360 and describe the difference 
between traditional data processing and the data base approach. 

2. Trace the flow of information and control through the system from 
the time a request is entered at a terminal until the response is 
received at the terminal. 

3. Write a program specification block and a batch application program 
using all Data Language/I call functions. 

4. Write a message processing program to handle input from a terminal, 
interaction with a data base, and output to a terminal. 

5. Describe the major functional areas such as System Definition, 
System Log, Checkpoint/Restart, and Security Maintenance and 
their significance. 
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Material Requirements 



Student Materials 



Title 



IBM System/360 Operating System COBOL 

Language 
Information Management System/360 Application 

Description Manual 
Information Management System/360 Program 

Description Manual 

Instructor Materials (in addition to the above) 

Information Management System/360 Application 
Programming Education Guide 

Information Management System/360 System 
Operations Manual 

Information Management System/360 Machine 
Operations Manual 

* IBM System/360 Bibliography (A22-6822) 
*** To be released 

Abstract - 



Form No. 

C28-6516 

H20-0524 
*** 



Abstract Ref. 



None 
None 



R204142 









See Below 

None 

None 



R20-4142 Education Guide 



8V2" X 11 " Looselcaf Instructor OutHne, 400 pages 
(Red Cover) 

This guide contains a detailed course outline which can be used for teaching three 
Information Management System/360 courses - Concepts and Facilities, Application 
Programming, and Implementation and Internals. 

Included in the guide are class exercises and paper masters which may be used in 
preparing overhead projection transparencies. 
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Course Description 



SYSTEM/360 INFORMATION MANAGEMENT SYSTEM - APPLICATION PROGRAMMING 



Course Code - 



Duration - 



Audience 



Prerequisites - 



Objectives 



o 



U3670 

2 student days 

Data processing managers who are responsible for implementing IMS/360 
and data processing managers who require an understanding of the system 
facilities in order to evaluate IMS/360 in relationship to other alternatives. 

Successful completion of S/360 for Data Processing Management (T3602) 
or equivalent experience. 

Upon successful completion of the course, the student should be able to: 

1. List the advantages of using IMS/360 and describe the difference 
between traditional data processing and the data base approach. 

2. Trace the flow of information and control through the system from 
the time a request is entered at a terminal until the response is 
received at the terminal. 



o 



3. Define a file in terms of a hierarchical file structure. 

4. Distinguish the difference between a batch processing program and a 
message processing program. 

5. Describe the major functional areas such as System Definition, 
System Log, Checkpoint/Restart, and Security Maintenance and 
their significance. 
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Material Requirements 



Student Materials 



Title 



Information Management System/360 Application 

Description Manual 
Information Management System/360 Program 

Description Manual 

Instructor Materials (in addition to the above) 

Information Management System/360 Concepts 
and Facilities Education Guide 

Information Management System/360 System 
Operations Manual 

Information Management System/360 Machine 
Operations Manual 

* IBM System/360 BibUography (A22-6822) 
*** To be released 

Abstract - 



R20-4 1 42 Education Guide 



Form No. 



H20-0524 



*** 



R20-4142 



*** 



*** 



Abstract Ref. 

None 
None 



See Below 

None 

None 



8^2" X 11" Looseleaf Instructor Outline 
(Red Cover) 

This guide contains a detailed course outline which can be used for teaching three 
Information Management System/360 courses - Concepts and Facilities, Application 
Programming, and Implementation and Internals. 

Included in the guide are class exercises and paper masters which may be used in 
preparing overhead projection transparencies. 
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Section 3 
General Course Outline 
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GENERAL COURSE OUTLINE 



Objectives and Purpose of IMS/360 

A. What is IMS/360 

B. What is a Data Base 

C. Primary Objectives of IMS/360 

D. A Typical Company's File Organization 

E. The Traditional Approach 

F. The Data Base Approach 

G. Conceptual View of IMS/360 

H. IMS/360 is an Extension of OS/360 



An Overview of IMS/360 

A. Information Management System/360 

B. Requirements of an Information System 

C. Major Features of IMS/360 

D. Data Base Facilities 

E. Data Communication Facility 

F. OS/360 Extension 

G. Data Language/I 

H. Logical Data Structure 

I . Procedure for Using Data Base Facility 

J. Data Storage Techniques 

K. Using the Data Communication Facility 

L. System Organization and Data Flow 



Data Language/I 

A. General Description 

B. Data Language/I vs OS/360 Data Management 

C. Data Language/I Structures - General 

D. Dependent Segments 

E. Data Language/I Structure - Rules 

F. Segment Sensitivity 

G. Key Length and Representation 
H. Storage Technique 

I. Data Base Description 

J. Program Specification Block 

K. Application Program Definition 

L. Data Language/I Calls 

M. Physical Storage 

N. Loading the Application Program 



3.1 



Online Processing (Message Processing! 

A. The Online Environment 

B. Preparing the Application Program 

C. Calling for an Input Message 

D. Outputting a Response 

E. The Message Format 

F. Message Processing Region Simulation 

G. An Input Message Editor 



Functional Description 

A. System Definition 

B. IMS/360 System Log 

C. Checkpoint, Restart, Data Base Dump and Recovery 

D. Security Maintenance 



Implementation and Internals 

A. IMS/360 Initialization and System Flow 

B. Communications Control 

C. Switched Communications Networks 

D. System Generation 

E. Security Maintenance 

F. Command Language Facilities 

G. Checkpoint, Restart, Data Base Dump and Recovery 
H. System Log 

I. Message Queue Space Allocation 

J. Estimating DASD Space for Data Bases 

K. Estimating Core Storage Requirements for IMS/360 
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PRIMARY OBJECTIVES OF IFlS/360 



• ELIMINATION OF REDUNDANT DATA 



• REDUCTION IN PROGRAM MAINTENANCE 



• PROVIDE ON-LINE MAINTENANCE OF A DATA BASE 
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COMPANY DATA BASE 
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TRADITIONAL APPROACH 
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DATA BASE APPROACH 
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PROGRAM A 





DATA 
DESCRIPTION 



DATA 
BASE 
ABC 
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INS/360 




COMPUTER 




APPLICATION 
LIBRARY 



DATA 
BASE 



DATA BASE FACILITY 

DATA COMMUNICATIONS FACILITY 
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AN EXTENSION OF OS/360 
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i DATA 




TELE" 1 


j MANAGEMENT 


OS/360 


communications! 
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CHECKPOINT/RESTART 
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INFORMATION MANAGEMENT SYSTEM/360 



IS A GENERAL PURPOSE DATA BASE/DATA 



COMMUNICATIONS SYSTEM 
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INFORnATION SYSTEM REQUIREMENTS 

EVOLUTIONARY GROWTH 
FROM BATCH TO ONLINE 
FROM APPLICATION DATA FILES TO LARGE DATA BASES 

SUPPORT BATCH AND ONLINE CONCURRENTLY 

LARGE VOLUME WITH RAPID RESPONSE 

HIGH DEGREE OF DATA INDEPENDENCE 

APPLICATIONS IN HIGH LEVEL LANGUAGE 

IN BATCH AND TELEPROCESSING ENVIRONMENT 
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INFORMATION MANAGEMENT 
SYSTEM/360 
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DATA BASE 
FACILITY 





DATA COMMUNICATIONS 
FACILITY 



o 



it. 2. 19 



2-y-3 



DATA BASE FACILITY 



DATA LANGUAGE/I 

• CREATION, MAINTENANCE, AND GROWTH 

• VARIABLE LENGTH INFORMATION 

• DATA AND PROGRAM INDEPENDENCE 

• BATCH AND ONLINE CONCURRENTLY OR INDEPENDENTLY 

• SUPPORTS HIGH LEVEL LANGUAGES 
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DATA COMMUNICATIONS FACILITIES 

1. BATCH TO ONLINE 

SIMPLIFIES CONVERSION 

2. HIGH LEVEL LANGUAGES 

COBOL AND PL/ I 

3. CHECKPOINT AND RESTART 

EXTENSIVE DATA BASE RECOVERY 

1. SECURITY 

FOR MESSAGE ENTRY 

5. LOGICAL TERMINAL OPERATION 

FOR MAINTENANCE AND CHANGE 

MULTIPLE USERS OF ONE PHYSICAL TERMINAL 

6. MASTER TERMINAL CONTROL 

SUPPORTS DYNAMIC SYSTEM CHANGES 

CHECKPOINT/RESTART 

OTHER TERMINAL CONTROL 

7. STATISTICAL AND ACCOUNTING INFORMATION 

DETAIL REPORTS PROVIDED 
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IMS/360 CONTROL 
PROGRAMS 




USER 

APPLICATION 

PROGRAMS 



A SECOND LEVEL OF CONTROL IS ADDED BETWEEN THE USER 
APPLICATION PROGRAM AND OS/360 CONTROL PROGRAM 
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DATA BASE FACILITIES 



DATA LANGUAGE/ I 



LOGICAL DATA STRUCTURES 



DATA BASE OPERATION 



PHYSICAL DATA STRUCTURES 
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LOGICAL DATA STRUCTURE 



HIERARCHICAL 



o 



^.2.24 2-V-8 



o 



o . 

TRADITIONAL FILE STRUCTURE 
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A DATA BASE CONSISTS OF 1 TO N DATA BASE RECORDS 

A DATA BASE RECORD CONSISTS OF 1 TO N SEGMENTS 

MAXIMUM OF 255 SEGMENT NAMES 

MAXIMUM OF 15 SEGMENT LEVELS 

1 ROOT SEGMENT PER DATA BASE RECORD 

DEPENDENT SEGMENTS - TO N PER PARENT 
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ORDER OF PHYSICAL STORAGE 
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DWGMSTR--A 




DWGHSTR~C 








C0NFIG--500 






NEXTASBY-X 


NEXTASBY-Z 
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DATA BASE OPERATION 



DATA BASE DESCRIPTION 



PROGRAM DESCRIPTION 



DATA BASE CREATION 



DATA BASE PROCESSING 
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DATA BASE DESCRIPTION 



CONTROL 
CARDS 



DBD 

GENERATOR 

PROGRAM 
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IMS/360 LIBRARY 




DATA BASE/DATA SET RELATIONSHIP 
SEGNENT/FIELD DEFINITION 
RECORD/SEGMENT RELATIONSHIPS 
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PROGRAM DESCRIPTION 











^ CONTROL 
CARDS 
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PSB 

GENERATOR 

PROGRAM 
















rMS/360 LIBRARY 
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PROGRAM NAME 
DATA BASE NAME 
DATA BASE FUNCTIONS 
SENSITIVE SEGMENTS 
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DATA BASE CREATION 





IMS/360 LIBRARY 



DBD 



SEQUENCED INPUT 
DATA TO BE 
LOADED INTO DATA 
BASE 





DATA BASE 

CREATION 

PROGRAM 




DATA BASE 
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DATA BASE PROCESSING 



APPLICATION 
PROGRAM 



CALL STATEMENTS 




FUNCTIONS: 
RETRIEVAL 

• INSERTION 
DELETION 
REPLACEMENT 



DATA 

LANGUAGE/ I 

PROCESSING 
PROGRAMS 





IMS/360 LIBRARY 



DBD 




DATA BASE 
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CALL STATEMENTS 



FUNCTIONS (at the .segment level,) 
GET UNIQUE (hold) 
GET NEXT (hold) 
GET NEXT WITHIN PARENT (hold) 
INSERT 
DELETE 
REPLACE 



SEGMENT SEARCH ARGUMENTS 
O SEGNAME (KEY FIELD NAME=FIELD VALUE) 



't.2.39 2-V-17 



DATA LANGUAGE/ I CALLS 



GU ROOT (KEYFLD=0816) 
DEPl (KEYFLD1=276) 



ISRT ROOT (KEYFLD=0912) 
DEPl (KEYFLDl=31i|) 
DEP2 
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PHYSICAL DATA STRUCTURES 



HSAM 



O HISAM 
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HISAM - SINGLE DATA SET GROUP 
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OSAM RECORD 
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END 



OSAM RECORD 
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HISAM - MULTIPLE DATA SET GROUP 



TWO DATA SET GROUPS: 

1. PRIMARY DATA SET GROUP 
lA, 2A, 2B SEGMENTS 

2 . SECONDARY DATA SET GROUP 
3A, 3B, 3C, 3D SEGMENTS 
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DATA COMMUNICATION FACILITIES 



PREDEFINITION 



SECURITY AND PRIORITY 



TERMINAL COMMAND LANGUAGE 



RECOVERY 
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PREDEFINITION 



DATA BASE 




PROGRAMS 





DBD 



COMMUNICATION 
LINES 




COMMUNICATION 
TERMINALS 



LOGICAL 
TERMINALS 



MESSAGES 





IMS/360 
SYSTEM 
GENERATIONS 



CTB's 





CONTROL BLOCKS 

DEFINING USERS 
ENVIRONMENT 
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INPUT FORMAT 
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TRANSACTION 
CODE 




SECURITY 
CODE 




TEXT 
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EXAMPLES OF TRANSACTIONS 



TRANSACTION: SALARY (PASSWD) 281635 

RESPONSE: SALARY FOR A, J. SMITH EMP. NO. 281635 is $1,000 

TRANSACTION: INV 8^1312 

RESPONSE: PART NUMBER 84312 HAS A TOTAL OF 261 UNITS 



TRANSACTION: DDNO C,A, BRAWLEY 

RESPONSE: C.A. BRAWLEY'S DEMAND DEPOSIT ACCOUNT 

NO. 15 285 16 8401 
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MESSAGE PROCESSING PRIORITY SCHEME 
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NORMAL PRIORITY 
LIMIT PRIORITY 
LIMIT COUNT 
QUEUE COUNT 



15 PRIORITY LEVELS 
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MASTER TERMINAL COMMAND LANGUAGE 



/ASSIGN 

/CHANGE 

/CHECKPOINT 

/DBDUMP 

/DBL06 

/DBNOLOG 

/DBRECOVERY 

/DISPLAY 

/ERESTART 

/NRESTART 

/PSTOP 

/PURGE 

/START 

/STOP 

/DELETE 
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REMOTE TERMINAL COMA/IAND LANGUAGE 



/BROADCAST 

/EXCLUSIVE 

/END 

/LOCK 

/UNLOCK 

/TEST 

/lAM 
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/SET 
/RESET 
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RECOVERY 



IMS/360 CONTROL BLOCKS 
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DATA BASES 
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o 



L 



SECURITY 
MATRICES 



TRANSACTION CODE 



SOURCE 
TERMINAL 



o 




REClOl 





JL 


J. 





J. 


SAQ02 


_L 


1 











INV109 








1 


J. 





PDXIFIQ 


-L 















TRANSACTION CODE 



PASSWORD 



o 



.% 



,^ 



^ 



,^ #/##/# 





q: 


y ^^ 


/ ^ 


/ ^ 


r "^ 


ABCXYZ12 


-1- 





-1- 








PMX12122 


J. 


J. 


J. 


1 


J. 


ABOOXYOZ 











-^ 
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BATCH ONLY PROCESSING 



DATA 
BASES 



OS/360 PCP, MFT, OR FIVT 



APPLICATION 
PROGRAM 




— r- 



© 



© 




BATCH 
DATA 
LANGUAGE/ I 



LOCAL INPUT 
JOB STREAM. 
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IMS/360 SYSTEM ORGANIZATION 



TERMINAL 



TERMINAL 



o 



MSG 
QUEUE 




DATA 
BASES 



OS/360 MFT OR MVT 


IMS/360 
CONTROL 
PROGRAMS 


IMS/360 
MSG. PROC, 
PROGRAMS 


OTHER 

OS 

JOBS 


COMMUNI- 
CATION 
CONTROL 


REGION 
CONTROLLER 






APPLICATION 
SCHEDULER 




DATA 
LANGUAGE/ 1 





PROGRAM 
LIBRARY 



LOCAL 

JNPUT JOB 

STREAM 



CONCURRENT ONLINE AND BATCH FACILITIES 
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O 
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o 





o 
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© 



APPLICATION 
PROGRAN 
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o 




© 
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rMS/360 SYSTEM ORGANIZATION 




DATA 
BASE 



OS/360 



IMS/350 



MESSAGE PROCESSING 
REGION 

(PROGRAMS LOADED 
AS NEEDED) 



BATCH 
PROCESSING 




PROGRAM FOR 



TRANA 
PROGRAM FOR 

TRANB 
PROGRAM FOR 

TRANC 
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MINIMUM BATCH CONFIGURATION 



u 




o 
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MINIMUM TELEPROCESSING CONFIGURATION 




2311 



2311 



2311 
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-F 



•i 

I 




o 



DATA 
BASE 



DATA LANGUAGE/I RELATIONSHIPS 



LOGICAL 
RECORD 



LOGICAL 
RECORD 



PHYSICAL RECORD 



LOGICAL 
RECORD 



LOGICAL 
RECORD 



PHYSICAL RECORD 



IIW,MjmiM»l I MP! I' JM 



DATA SET 



PHYSICAL STORAGE DEVICE 



OS/350 DATA MANAGEMENT 
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o 









LOG, 
RECORD 


LOG, 
RECORD 


LOG, 
RECORD 


LOG. 
RECORD 




LOG. 
RECORD 


LOG. 
RECORD 


LOG. 
RECORD 


LOG. 
RECORD 




PHYSICAL RECORD 


PHYSICAL RECORD 




r- 


PHYSICAL RECORD 


PHYSICAL RECORD 


DATA SET 




DATA SET 


PHYSICAL STORAGE DEVICE 




PHYSICAL STORAGE DEVICE 


DATA BASE RECORD 
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< 

I 
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HIERARCHICAL STRUCTURE 







ROOT 
































DEPl 


DERil 




















- 








DEP2 


DEP3 





ROOT 


DEPl 


DEP2 


DEP3 


DEPi» 


PART NO. 


DESCRIPTION 


QUAN, ON 
HAND 


UNIT PRICE 


VENDOR 
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CONCATENATED KEYS 



o 



DATA LANGUAGE/ I 
KEY 



123'! 



ROOT 



123^1 



DATA LANGUAGE/ I 
KEY 

1 1234! 373! 

DATA LANGUAGE/ I 
XEI 



123^i678!24 



21 



DEPl 



16781 



DEP2 



DEP4 



41 



DEP3 



99 



DATA LANGUAGE/ I 
KEY 



12341^11 



DATA LANGUAGE/ I 
KEY 



1234 ! 678! 99 



o 



o 
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LOGICAL HIERARCHY 










I 

< 
I 



TOP TO BOTTOM - LEFT TO RIGHT 





o 









o 
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3-V-6B 




o 





o 
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THREE LEVEL HIERARCHY 



KEY LENGTH 



ROOT 


002 






DEPl 


000^1 






DEP2 


02 




DEP2 


07 






DEP2 


21 




DEPl 


0008 




DEPl 


0025 




DEPl 


0911 




DEPl 


0912 






DEP2 


03 




DEP2 


05 




DEP2 


07 




DEP2 


2i\ 




DEP3 


001 






DEP3 


002 




DEPl 


0925 




DEP4 


iJSl 




DEPl 


455 



3 

2 
2 
2 
it 
t 

^ 
2 
2 
2 
2 
3 
3 

3 
3 
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DATA BASE 
RCD STRUCTURE 



lA 



m 



2bI|- 



3A 



Jxrr~j 
3B J 



3C 



^ 



3D J 



BSAfI RCD, NO. 1 
BSAM RCD. NO. 2 
BSAM RCD, NO. 3 



o 



lA 


2A 


2B 


2A 


2B 


2B 


2A 


3A 


3B 


3C 


3D 


3B 


3D 


3D 


lA 


2A 


2B 


2B 
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HISAH - SINGLE DATA SET GROUP 



lA 
X 



[SI 



3A 



2BJ 



3B 



3C 



3D 



fClS^ 



lA 


2A 


2B 


2A 


PTR 



ISAM RECORD 




^-' 








\ 


2B 


2A 


3A 


3B 


PTR 



\ 



OSAH RECORD 



1 

1 
, 




V 




3C 


3C 


3D 


END 


OSAI 


IRE 


CORD 
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HISAM - MULTIPLE DATA SET GROUP 



o 



TWO DATA SET GROUPS: 

1, PRIMARY DATA SET GROUP 
lA, 2A, 2B SEGMENTS 

2. SECONDARY DATA SET GROUP 
3A, 3B, 3C, 3D SEGMENTS 






lA 


2A 


2B 


2A 


PTR 




2B J 




lA 



3A 



3B 



m 



2B 


2A 


E^D 



3D 



o 



n 



/ 




3A 


3B 3C 3C PTR 
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MULTIPLE DATA SET GROUPS 




4.3.^^ 
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r 



o 



ISAK-CSAM 



i__iSA!![-_0SAij.__^4 



SUBORDINATE DATA 
SET GROUP 1 



'SUBORDINATE DATA 
SET GROUP 2 



"1 r 



ISAM-OSAK 



I 



o 
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001 



02 



003 



m 



006 



OOi) 



005 



05 



06 



O 
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o 



o 



ROOT 
001 


DEPl 
02 


DEP2 
OOiJ 


DEP3 
005 


PRIME DATA SET 




ROOT 

KEY 

001 


DERil 
003 


DEP5 
006 


SUBORDINATE DATA 
SET GROUP 1 




ROOT 

KEY 

001 


DEP6 
Oi* 


DEP7 
05 


DEP8 
06 


SUBORDINATE DATA 
SET GROUP 2 






4.3 


.t7 


3-y-iic 



DATA BASE DESCRIPTION 



CONTROL 
CARDS 



DBD 

GEi^RATOR 

PROGRAM 




IMS/360 LIBRARY 




DATA BASE/DATA SET RELATIONSHIP 
SEGMENT/FIELD DEFINITION 
RECORD/SEGMENT RELATIONSHIPS 



o 
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DBD INPUT CARDS 



o 



-1- 


[print 


NOGEN 1 


2 


DBD 


NAnE=,ACCESS= 


3 


DMAN 


ddi=,devi=,[dd2=[,[dliof=] 


4 


SEGM 


^AME= , PARENT= , BYTES= , FREQ= 


5 


FIDK 


NAME= , TYPE= , BYTES= , START= 




[fld 


NAME=,TYPE=,BYTES=,START= j 


6 


DBDGEN 




7 


FINISH 




8 


END 


' 



o 
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EXAMPLE OF DBD GENERATION 





ROOT 








1 














DEPl 




DEP3 












DEP2 




DEpil 



PRINT 



NOGEN 



SEGM 

FLDK 

FLD 

SEGM 

FLDK 

SEGM 

FLDK 

FLD 

SEGM 

FLDK 

SEGM 

FLDK 

DBDGEN 

FIMSH 



NAME=ROOT , PARENT=0 , EYTES=90 , FREQ=500 
NAME=KEY , TYPE=C , BYTES=6 , START=1 
NAI€=F I ELD JYPE=C , BYTES=8i( , START=7 
NAf'IE=DEPl , PARENT=R00T , BYTES=91 , FREQ=1 
NA(€=KEY1 , TYPE=C , BYTES=4 , START=19 
NAME=DEP2 , PARENT=DEP1 , BYTES=300 , FREQ=1 
NA(€=KEY2 , TYPE=C, BYTES=8 , START=1 
\'iE=F I ELD3 , TYPE=P , BYTES=253 , START=7 



NAME=DEP3 , PARENT=R00T, BYTES=91 , FREQ=1 
[^AME=KEY3 , TYPE=C , BYTES=6 , START=W 
NAFiE=DEP4 , PAkENT=DEP3 ,BYTES=259 , FREQ=1 
fiA(€=KEYil , TYPE=C , bYTES=3 , START=1 
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UBD 
DMAN 



NAME=AB,ACCESS=SEQ 
DU1=BBP , DEVI=TAPE , DD2=UBP1 



o 



o 



^f . 3 . 5 1 



3-V-14A 



DBD MAME=AB,ACCESS= INDEX 

DMAN DD1=DBP , DEV1=2311 , DLI 0F=0VFL1 
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r 



~i 



r 



r 



DBD NAME=AB,ACCESS= INDEX 

OMAN DDl=ABC,DEVl=2311,DLr0F=0VFQ 



o 



wm 



DDl=DBl,DEVl=23Il,DLr0F=0VFU 



o 



4.3.53 



3_V-litc 



PSB INPUT 



PCB TYPE=EL, 

CBDNAf€=NAME, 
PROCOPT=X, 

KEYLEN=LENGTK 



SENSEG NAME OF SENSITIVE SEGMENT, 

PARENT OF THIS SENSITIVE SEGMENT 



PSBGEN LANG=COMPILER LANGUAGE, 
PSBNAME=NAME OF THIS PSB 
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EXAMPLES- OF PSB 





ROOT 
























DEPl 




DEP3 












DEP2 




DEP4 



o 



o 



PCB 


TYPE=DB , DBDNAME=AB , PROCOPT=A , KEYLEN=18 


SENSEG 


ROOT 


SENSEG 


DEPl, ROOT 


SENSEG 


DEP2,BEP1 


SENSEG 


DEP3,R00T 


SENSEG 


DEP1,DEP3 


PSBGEN 


LANG=COEOL,PSBNAME=DISBURSE 


END 




PCE 


TYPE=DB , DBDNAfiE=AB , PRCCOPT=G , KEYLEN=15 


SENSEG 


ROOT 


SENSEG 


DEP3,R00T 


SENSEG 


]JEPi|,DEP3 


PSBGEI'i 


LANG=PL/LPSBNAME=AUDIT 


E^iD 
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THE PCB IS A FILTER 



APPLICATION 
PROGRAM 







PCB 




DBD 












"X 


















DATA BASE 
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I 

oo 



o 



o 

ONE-TO-ONE RELATIONSHIP IN COBOL 









BYTES 



8 
2 

2 
8 



GENERATED BY PSB UTILITY 



MASK WRITTEN IN COBOL 



FUiCTION 



NAME OF DATA BASE DI RECTORY- - 
(DBD) 

SEGi'iENT HIERARCHY LEVEL- — ' 1""I 
INDICATOR 

DATA LANGUAGE/ I RESULTS'' 
STATUS CODES 

DATA LA.NGUAGE/I PROCESSIi^G 
OPTIONS 

RESERVED FCR DATA LANGUAGE/ r 
oCB ADDRESS 



/ 



SEGMENT NAME FEEDBACK AREA'^/ 
LENGTH OF FEEDBACK KEY— ^ 
NUFiBER OF SENSITIVE SEGKENTS'' 
KEY FEEDBACK AREA 



/ 



/ 



/ 



/ 



01 PCBNAME. 

02 DBD-NAME 

_---02 SEG-LEVEL 

^^,02 STATUS CODE 

/02 PRGC-OPTIONS 

-""^02 RESERVE-DLI 

y 02 SEG-KAME-FB 



PICTURE X(8). 

PICTURE XX. 

PICTURE XX. 

PICTURE XXXX. 

PICTURE S9(5) COMPUTATIONAL. 

PICTURE X(8). 



'' 02 LENGTH-FE-KEY PICTURE S9(5) COMPUTATIONAL. 






<' ^ 02 NUKB-SENS-SEGS PICTURE S9(5) COMPUTATIONAL. 



r 



/ A 

/ 02 KEY-FB-AREA, 



/ 



/ 



/ 



y 



03 ROOT-SEG-KEY PICTURE X(12). 
03 SECOND-SEG-KEY PICTURE X(2). 
03 THIRD-SEG-KEY PICTURE X(5). 



I 



ONE-TO-ONE RELATIONSHIP IN PL/I 



GENERATED BY PSB UTILITY 



liASK WRITTEN IN PL/ 1 






oo 



BYTES 



8 



8 NAME OF DATA BASE DIRECTORY 

2 

2 

1 



SEGMENT HIERARCHY LEVEL 

INDICATOR 

DATA LANGUAGE/ I RESULTS STATUS 
CODES 

DATA LANGUAGE/I PROCESSING -' ' 
OPTIONS TO BE USED 

RESERVED FOR DATA LANGUAGE/ I "' 
JCB ADDRESS 

SEGMENT NAi'lE FEEDBACK AREA^"-' 

LENGTH OF FEEDBACK KEY-"^ 

NUMBER OF SENSITIVE SEGMENTS''^ 

KEY FEEDBACK AREA 



/ 



r 



DECLARE 1 
-1— — 2 
J— — 2 
^^2 

' ---^ 2 



I 

-4- 



/ 



+ 



/ 



/ 



/ 



z 



y 



y 



V 



I 



/ 



SAMPLE PCB, 

DBD_NAI€ 

SEG_LEVEL 

STATUS_CODE 

PROC_OPTIONS 

RESERVE_DLI 

SEG_NAi'lE_FB 

LENGTH FB KEY 



~\ 



CHARACTER (8), 
CHARACTER (2), 
CHARACTER (2), 
CHARACTER (4), 
FIXEjj BINARY (31,0), 
CHARACTER (8), 



FIXED BINARY (31,0), 
_SENS_SEGS FIXED BINARY (31,0), 
KEY_FB_AREA, 



3 R00T_SEG_KEY 
-1 3 SEC0ND_SEG_KEY 
3 THIRD_SEG_KEY 



CHARACTER (12), 
CHARACTER (2), 
CHARACTER (5); 



I 
< 

I 

►-• 



o 



DATA LANGUAGE/I CALLS 



COBOL 



ENTER LINKAGE . 

CALL 'CBLTDLI' USING 
CALL-FUNCTION, 
PCBNAME, 
USER-IO-AREA, 
SSAl, — ,SSAN , 

ENTER COBOL , 



O PL/I 



CALL PLITDLI (PARM_COUNT, 
CALL_FUNCTION, 
PCBNAME, 
USER_IO_AREA, 
SSAl, — ,SSAN); 



4.3.59 



3-V-20 



SEGMENT SEARCH ARGUMENT 



CHARACTERS 



SEGMENT NAf€ 



-8—1 



1 



FIELU NAME 



<g-— 8-- 



RELATIONAL OPER 



---2— 



B=,B>,B<,-1= , 
=>,= < 



COMPARATIVE VALUE 



-*•-! TO 255 



01 SSAl 

02 SEG-NAME 
02 SEG-QUAL 
02 SEG-KEYNAME 
02 SEG-OPERATOR 
02 SEG-KEY VALUE 
02 SEG-END-CHAR 



PICTURE X (8) VALUE 'PARTbbbb' 
PICTURE X VALUE 'C. 
PICTURE X C8) VALUE 'PARTKEYb'. 
PICTURE XX VALUE 'b='. 
PICTURE X (6) VALUE 'AB7024', 
PICTURE X VALUE ')'. 



PARTbbbb (PARTKEYBB=AB702ii) 



k.3.b0 



3-V-2JI 



SSA EXAMPLES 



o 



o 



o 



PARTbbbbb 

PARTbbbb (PARTKEYbb=AB6023) 

PARTbbbb (PARTKEYbb=AB7024) 
I NVNTORY (KLOCbbbbb=BI N32i|) 
VENDHIST(KEYNAMEbb=SMITHBRD) 

PARTbbbb (PARTKEYBB=AB702iJ) 

INVNT0RY(BUILDINGb=BLD2I) 

VENDHISTb 



4.3.61 ' ^-V-22 



DATA LANGUAGE/ I FUNCTION CODES 



FUNCTION CODE 

GET UNIQUE GUbb 

GET NEXT GNbb 

GET NEXT WITHIN PARENT GNPb 

GET HOLD UNIQUE GHUb 

GET HOLD NEXT GHNb 

GET HOLD NEXT WITHIN PARENT GHNP 

INSERT ISRT Q 

DELETE DLET 

REPLACE REPL 



4.5.62 ' 3-V-23 



GET UNIQUE - STATUS CODES 



o 



o 



o 



STATUS CODE 


MEANING 


'AB' 


NO SEGMENT I/O AREA SPECIFIED IN C 


'AC 


HIERARCHICAL ERROR IN SSA's 


'AD' 


IL FGAL FUNCTION PARAMETER 


'AG' 


FIRST SSA MUST BE FOR A LEVEL ONE : 


'AH' 


SSA's PISSING 


'AI' 


DATA MANAGEMENT OPEN ERROR 


'AJ' 


INVALID SSA QUALIFICATION FORMAT 


'AK' 


INVALID FIELD NAME IN CALL 


'AL' 


TERMINAL PCB INVALID IN BATCH ONLY 




PROCESSING REGION 


'AM' 


CALL FUNCTION NOT COMPATIBLE WITH 




PROCESSING OPTION 


'AC 


I/O ERROR IN ISAM OR BSAF 


'AP' 


I/O ERROR IN OSAM 


'GE' 


SEGMENT NOT FOUND 



PARTbbbb (PARTKEYBB=AB702i) ) 
I NVNTORY (KLOCbbbbb=B I N32i() 
VENDHIST(KEYNAMEBB=SniTHBRO) 



'i. 3 . 63 3_v-24 



GET NEXT - STATUS CODES 



STATUS CODE 



'AB' NO SEGMENT I/O AREA SPECIFIED IN CALL 

'AC HIERARCHICAL ERROR IN SSA's 

'AD' ILLEGAL FUNCTION PARAMETER 

'AI' DATA MANAGEMENT OPEN ERROR 

'AJ' INVALID SSA QUALIFICATION FORMAT 

'AK' INVALID FIELD NAME IN CALL 

'AL' TERfilNAL PCB INVALID IN BATCH ONLY 

PROCESSING REGION 

'AM' CALL FUNCTION NOT COMPATIBLE WITH 

PROCESSING OPTION 

* 'AN' GN CALL NOT ALLOWED IMMEDIATELY AFTER 

ISRT CALL 

'AO' I/O ERROR IN ISAM OR BSAM 

'AP' I/O ERROR IN OSAM 

* 'GA' CROSSED HIERARCHICAL BOUNDARY 

* 'GB' END OF DATA SET 
'GE' SEGMENT NOT FOUND 

* 'GK' DIFFERENT SEGMENT NAME AT SAME LEVEL 

(RETURNED ON UNQUALIFIED CALLS ONLY) 

4.3.6t 3-V-25 



o 



GET NEXT WITHIN PARENT - STATUS CODES 
STATUS CODE MEANING 



'AB' NO SEGMENT I/O AREA SPECIFIED IN CALL 

'AC HIERARCHICAL ERROR IN SSA's 

' AD ' I LLEGAL FUNCTI ON PARAMETER 

* 'AE' ON GNP/GHNP CALLS, FIRST LEVEL SSA ILLEGAL 

'AI' DATA MANAGEMENT OPEN ERROR 

'AJ' INVALID SSA QUALIFICATION FORMAT 

'AK' INVALID FIELD NAME IN CALL 

'AL' TERMINAL PCB IS INVALID IN A BATCH 

O PROCESSING REGION 

'AM' CALL FUNCTION NOT COMPATIBLE WITH 

PROCESSING OPTION 

'AN' GN CALL NOT ALLOWED IMMEDIATELY AFTER 

ISRT CALL 

'AO' I/O ERROR IN ISAM OR BSAM 

'AP' I/O ERROR IN OSAM 

'GA' CROSSED HIERARCHICAL BOUNDARY INTO HIGHER LEVEL 

'GE' SEGMENT NOT FOUND 



'GK' DIFFERENT SEGMENT TYPE AT SAME LEVEL RETURNED 

(RETURNED ON UNQUALIFIED CALLS ONLY) 

* 'GP' PARENT NOT ESTABLISHED 

3-V-26 
't.3.65 



INSERT - STATUS CODE 
STATUS CODE MEANING 

'AB' NO SEGMENT I/O AREA SPECIFIED IN CALL 

'AC HIERARCHICAL ERROR IN SSA's 

'AD' THE FIRST SSA MUST BE FOR A LEVEL ONE SEGMENT 

'AH' SSA's MISSING 

' AI ' DATA MANAGEMENT OPEN ERROR 

'AJ' INVALID SSA QUALIFICATION FORMAT 

* 'AK' INVALID FIELD NAME IN CALL 

'AL' TERMINAL PCB IS INVALID IN BATCH ONLY 
PROCESSING REGION 

'AM' CALL FUNCTION NOT COMPATIBLE WITH PROCESSING OPTION 

'AO' I/O ERROR IN ISAM OR BSAM 

'AP' I/O ERROR IN OSAM 

'GE' QUALIFYING SEGMENT NOT FOUND 

INSERT 'II' DUPLICATE SEGMENT ALREADY IN DATA BASE 

'LB' DUPLUCATE SEGMENT ALREADY IN DATA BASE 

'LC SEGMENT KEY FIELD CONTENTS OUT OF SEQUENCE 

'LD' THE PARENT FOR THIS SEGMENT HAS NOT BEEN SUBMITTED 

'LE' SUBMISSIONS VIOLATE ORDER WITHIN A LEVEL 

'LH' LEVEL IMMEDIATELY FOLLOWING ROOT HAS BEEN SKIPPED 

^.3.66 5-V-27 



o 



o 



f\ T\f 



LD' STATUS CODE 



o 
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'I c/ 



LE' STATUS CODE 





A 


































B 




C 




D 






















— 


_ ..^.^ . 




'1 








E 


■ 


r 
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LH' STATUS CODE 



o 




o 



4.3.69 



3-V-30 



DELETE/REPLACE - STATUS CODES 

STATUS CODE MEANING 

'AB' NO SEGMENT I/O AREA ADDRESS IN CALL 

'AD' ILLEGAL FUNCTION PAKAMETER 

'AF' NO SSA's ALLOWED FOR DLET/REPL CALLS 

'AI ' DATA MANAGEMENT OPEN ERROR 

'AL' TERMINAL PCB INVALID IN BATCH ONLY REGION 

'AO' I/O ERROR IN ISAM OR BSAM 

'AP' I/O ERROR IN OSAM 

'AM' CALL FUNCTION NOT COMPATIBLE WITH PROCESSING 

OPTION 

'DA' KEY FIELD CANNOT BE CHANGED ON A DELETE OR 
REPLACE 

'DJ' NO PRECEDING SUCCESSFUL GET HOLD 



c 
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o 



DATA BASE WITH THREE RECORDS 



o 



ENTRY 








KEY FIELD 


J. 


ROOT 001 




RUT 


2 




DEPl 0001 


KFLDl 


3 


DEPl 0002 


KFLDl 


4 


DEP2 0001 




KFLD2 


5 




DEP3 0004 




KFLD3 


6 


DEP4 0008 


KFLD4 


7 


DEP5 0006 




KFLD5 


8 


DEP5 0007 


KFLD5 


9 




DEP6 0007 


KFLD6 


10 


DEP2 0004 




KFLD2 


12 




DEP3 0005 


KFLD3 


DEP5 0007 


KFLD5 


13 




DEP2 0005 




KFLD2 


14 


ROOT 002 




RUT 


15 




DEPl 0012 


KFLDl 


16 


DEP2 0011 




KFLD2 


17 




DEP3 0004 


KFLD3 


18 




DEP5 0007 


KFLD5 


19 


ROOT 005 






RUT 



o 



4,3,71 



3-V-32 



RETRIEVES 
ENTRY 



GU ROOT(RUT=002) 
DEP1(KFLD1=0012) 

GU ROOT 

GU R00T(RUT=001) 
DEP2(KFLD2=000ii) 
DEP5(KFLD5=0007) 

GU ROOT(RUT=001) 
DEP5(KFLD5=0008) 

GN 

GN ROOT 



it. 3. 72 



GN RG0T(RUT=001) 




DEPl 


2 


GN ROOT 




DEP2 


^ 


GN ROOT(RUT=001) 




DEP2 


{ 


DEP3(KFLD3=0005) 


11 




3-V-32A 



15 



12 



AC 



1 



o 





RETRIEVES 




ENTRY 


GN 


ROOT 






DEP5(KFLD5=0007) 


AC 


GN 


ROOT 
DEP2 






DEP3 


5 



GN R00T(RUT=001) 

GN R00T(RUT=001) 
DEP1(KFLD1=0002) 

GN R00T(RUT=001) 
DEP2(KFLD2=0001) 
DEP3(KFLD3=000'1) 

GN R00T(RUT=00'J) 

GN R00T(RUT=002) 



GE 



lt| 
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3-V-32B 



RETRIEVES 
ENTRY 



GN 




GN 




GN 


ROOT 


GN 




GN 


ROOT 


GN 


ROOT 


GN 


ROOT 


GN 




GN 




GN 




GN 


R00T(RUT=001) 




DEP2(KFLD2=0001) 




DEP6(KFLD6=0007) 


GN 




GN 


R00T(RUT=001) 




DEP2(KFLD2=0001) 




DEP5(KFLD5=0007) 


GN 


DEP5 



1 

2 

1 
2 

1 
14 

1 
2 
3 



9 
10 



8 
12 



~^ 



^,3.74 



3-V-32C 



o 





RETRIEVES 




R00T(RUT=001) 


ENTRY 


GN 






DEP2(KFLD=0005) 


13 


GN 




14 


GN 


R00T(RUT=001) 
DEP2(KFLD2=000il) 






DEP5(KFLD5=0009) 


GE 


GN 




13 


GN 


DEP3 


5 


GN 


DEP3 


J.JL 


GN 


DEP3 


17 


GN 


DEP3 


GB 


GN 


ROOT 


1 


GNP 




2 


GU 


R00T(RUT=001) 






DEP2(KFLD2=000ii) 


10 


GNP 




11 


GNP 




12 


GNP 




GE 



o 
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3-V-32D 



RETRIEVES 


ENTRY 


GU R00T(RUT=001) 


_L 


GNP R00T(RUT=G01) 




DEP1(KFLD1=0001) 


AE 


GU R00T(RUT=001) 




DEP1(KFLD1=0001) 


2 


GNP 


GE 



4,3,76 
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COBOL PROGRAMMING EXAMPLE 



o 



o 



IDENTIFICATION DIVISION, 

DATA DIVISION. 

WORKING STORAGE SECTION, 

01 IN-ROOT. 

02 KEY PICTURE XC6) , 
02 FIELD PICTURE XCS^I) . 

01 IN-DEPl. 

02 KEYl PICTURE XW) , 
02 FIELDl PICTURE XC85) . 

01 IN-DEP2. 

02 KEY2 PICTURE XC8) ■ 
02 FIELD2 PICTURE XC253) . 
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01 



01 



01 



01 



SSAl. 






02 


SEGl-NAM 


PICTURE X(8). 


02 


PARE a 


PICTURE X VALUE '('. 


02 


KEYl-NAi'lE 


PICTURE X(8). 


02 


OPl 


PICTURE XX. 


02 


VALUEl 


PICTURE 9(6), 


02 


PARENll 


PICTURE X VALUE ')'. 


SSA2. 




• 


02 


SEG2-NAME 


PICTURE XC8). 


02 


PAREM2 


PICTURE X VALUE <C', 


02 


KEY2-NAME 


PICTURE X(8). 


02 


0P2 


PICTURE XX. 


02 


VALUE2 


PICTURE 9 tt). 


02 


PAREN22 


PICTURE X VALUE ')'. 


SSA3. 






02 


SE63-NAME 


PICTURE XC8). 


02 


PARESIS 


PICTURE X VALUE 'C. 


02 


KEY3-NAME 


PICTURE X(8). 


02 


0P3 


PICTURE XX. 


02 


VALUES 


PICTURE 9(8). 


02 


PAREN33 


PICTURE X VALUE ')'. 


CALL-FUNC 


PICTURE XW VALUE 'ISRT' 
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o 



LINKAGE SECTION. 






01 PCBNAME. 






02 


DBB-NAME 


PICTURE X(8). 




02 


SEG-LEVEL 


PICTURE XX. 




02 


STATUS CODE 


PICTURE XX. 




02 


PROC-OPTIONS 


PICTURE XXXX, 




02 


RESERVE-DLI 


PICTURE S9(5) 


COMPUTATIONAL. 


02 


SEG-NAME-FB 


PICTURE X(8). 




02 


LENGTH-FE-KEY 


PICTURE S9(5) 


COHPUTATIONAL. 


02 


NU 1B-SENS-SEGS 


PICTURE S9(5) 


COMPUTATIONAL. 


02 


KEY-FB-AREA. 








03 ROOT-SEG-KEY 


PICTURE X(6). 






03 SECOND-SEG-KEY 


PICTURE X(^). 






03 THIRD-SEG-KEY 


PICTURE X(8). 




PROCEUURE DIVISION. 






BEGIN. 








ENTER LINKAGE , 








ENTRY 'DLITCBL' USING PCBNAHE . 




ENTER COBOL. 








MOVE SPACE TO PAREN3. 






ENTER LINKAGE. 








CALL 'CBLTDLI' USING 








CALL-FUNC, 








PCBNAHE, 








n-DEP2, 








SSA-1., 








SSA-2 , 








SSm-3 . 






ENTER COBOL. 







4.3.79 



3-V-35 



ROOTbbbb (KEYbbbbbb=678512 ) 



UEPIbbbb ( KEY1bbbbb=3412 ) 



DEP2BBBB (KEY2BBBBB=567il4788) 
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o 



o 



o 



RETURN FROM APPLICATION PROGRAM 



COBOL 

ENTER LINKAGE. 
RETURN. 
ENTER COBOL. 

PL/I 

RETURN: 

ASSEMBLER 

RETURN (W,I2),RC=0 
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TO INPUT LOG, 
RECORDS 




STEP 2 



MEMORY BUFFER 
LOG. RECORD 7 




STEP 3 



ISAM OPERATION 



LOGICAL 
RECORD 1 



7 X 



LOGICAL 
RECORD 1 



Ui 



VBBMBaaMBBrt 



PRIME 






LOGICAL 
RECORD 2 



INDEX 



PRIME 

LOGICAL 
RECORD 2 



INDEX 



LOGICAL 
RECORD 7 



LOGICAL 
RECORD 5 





PRIME 




LOGICAL 


LOGICAL 


LOGICAL 


RECORD 1 


RECORD 2 - 


RECORD 5 



V. 



INDEX 



LOGICAL 
RECORD 7 



OVERFLOW 
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LOGICAL 
RECORD 5 



DATA LANGUAGE/ I OPERATION 



LOGICAL 
RECORD 1 




LOGICAL 
RECORD 2 



LOGICAL 
RECORD 7 



ISAM 
OSAM 




LOGICAL 
RECORD 1 



LOGICAL 
RECORD 2 



LOGICAL 
RECORD 7 



ISAM 



o 



o 



o 



LOGICAL 




LOGICAL 
RECORD 5 



OSAM 



LOGICAL 
RECORD 1 


ISAM 
LOGICAL 
RECORD 2 


5 


LOGICAL 
RECORD 7 



OSAM 
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ISAM PHYSICAL STRUCTURE 






oo 

4^ 









ROOT 






DEPl 






DEP2 








p 
c 


D 
C 




p 
C 


D 
C 




p 
C 


D 
C 




L 

A 
G 




1 
L. 


1 

1 
1 

u 


1 

L 


.- DEIFTE BYTE 

_ PHYSICAL CODE (SEGMENT TYPE 1-255) 

.. THREE BYTE POINTER TO NEXT ROOT IN OVERFLOW DATA SET 


T 


1 
1 
1 

1 
1 
1 



FLAG INDICATES POINTER FOLLOWS I I 

I 

THREE BYTE POINTER TO NEXT DEPENDENT SEGMENT IN OVERFLOW DATASET j 



OSAM ROOT OVERFLOW HAS SAME FORMAT 



I 
< 

I 

4:- 
o 






I 
< 

I 

4^ 



o 



o 



OSAM-DEPENDENT SEGMENT OVERFLOW STRUCTURE 






00 



DEP2 



DEP3 



F 

L 
A 
G 



i_i 



SLACK 



COUNT OF BYTES IN USE 



•FLAG INDICATES COUNT FOLLOWS 



POINTER TO NEXT OSAI* 
DEPENDENT OVERFLOW 



•ZERO INDICATES POINTER FOLLOWS 



ISAM/OSAM RELATIONSHIP 



ISAM 





ROOT 


DEPl 


DEP2 


DEP2 








c» 





ROOT 


DEPl 








DEP3 


DEPl 


DEP2 





OSAM 





ROOT 


DEPl 







DEPl 


DEP2 


DEP3 







I 
< 

I 





DEP2 


DEPl 


DEP2 






ROOT INSERTION 



■LOGICAL RECORD- 



PHYSICAL RECORD- 



■LOGICAL RECORD- 



T 



LOGICAL RECORD- 



ROOT 



27 



ROOT 



31 



DEPl 



ROOT 



i|8 



DEPl 



1st 





ROOT 
36 


DEPl 





ROOT 


DEPl 



3rd 



2nd 





ROOT 
5i\ 


DEPl 





ROOT 
32 


DEPl 



4th 



o 
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I\ 







'^ySlCAL BLOCK 



A 



c 



''•5. 



88 



B 




PHYSICAL BLOCK A 



A 



PWSICAL BLOCK B 



) 



^.5.89 
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PHYSICAL BLOCK C 



PHYSICAL BLOCK B 



o 



4.3.90 
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o 



D 




PHYSICAL BLOCK A 



PHYSICAL BLOCK B 



PHYSICAL BLOCK D 
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DEPENDENT SEGMENT INSERTION 





ROOT 


DEPl 


DEP2 




SLACK 




06 


07 


02 











ROOT 


DEPl 


DEP2 


DEP3 




SLACK 




06 


07 


02 


Oij 











ROOT 
01 


DEPl 
07 


DEP2 
01 


DEP2 
02 


DEP3 
OH 
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DEPENDENT SEGMENT INSERTION 





ROOT 
01 


DEPl 
07 


DEP2 
01 


DEP2 
02 


DEP3 
04 





o 






ROOT 
01 


DEPl 
07 


DEP2 
01 


DEP2 
02 


DEP3 
01 


A 



o 




DEP3 



SLACK 



PHYSICAL BLOCK A 
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LOADING A BATCH PROGRAM 



// EXEC D LI BATCH, PSB=PSBNAnE 



REGION CONTROLLER 



CONTROL 
BLOCK 





PROGRAM 
LIBRARY 



't.J.S't 



i.V.kb 



o 



o 



CLASS EXERCISES 

INSTRUCTORS* NOTE: 

Additional material can be found in Section 5 - Instructor 
Materials to help in assigning these exercises. 

1. Write a data base description using the segment names, 
lengths, key fields, and key field lengths shown on the 
following page. The student should provide his own 
frequencies of occurrences. 

It is suggested that the following page be reproduced 
and given to the student. The only additional material 
required by the student is the JCL provided by the 
instructor. 

2. Write a program specification block for the structure on 
the following page and declare sensitivity to all 
segments. The PCB Control Card should specify 
TYPE=DCB and PROCOPT=A. The DBDNAME should be provided 
by the instructor and should be the name of the data 
base to be used by the class when they write their 
processing programs. 

The PSBGEN Control Card should specify the language in 
which the student will later write his processing 
program to use this PSB. The PSBNAME will be the same 
as that on the JCL provided by the instructor for 
running the PSB generation. 

The student should be informed that this PSB will be 
used by him when his processing program is v/ritten later 
in the course. 

3. Given a program which retrieves and prints the 
information in the PARTROOT and STANINFO segments shown 
in the structure on the following page , modify the 
program to insert new PARTROOT and STANINFO segments, 
retrieve and print the newly added segments, and then 
delete them. 

The segment names, sizes, and key fields are those shov/n 
on the following page. 

Use the PSB which was generated for exercise 2 above. 

Additional material for assigning this problem can be 
found in Section 5, 



O 
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DATA BASE STRUCTURE 





PARTROOT 






1 










STAN INFO 




STOKSTAT 








1 









CYCCOUNT 




BACKORDR 



SEGMENT NAME 


LENGTH 
50 


KEY FIELD 
PARTKEY 


LENG 


PARTROOT 


17 


STAN INFO 


85 


STANKEY 


2 


STOKSTAT 


160 


STOCKEY 


16 


CYCCOUNT 


25 


CYCLKEY 


2 


BACKORDR 


75 


BACKKEY 


10 



NOTE: ALL KEY FIELDS ARE AT THE BEGINNING OF EACH SEGMENT. 
ALL FIELD TYPES ARE £ 
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ONLINE PROCESSING (MESSAGE PROCESSING) 



Outline 

A. The Online Environment 4.4.2 

B. Preparing the Application Program 4.4.2 

C. Calling for an Input Message 4.4.3 

D. Outputting a Response 4.4.3 

E. The Message Format 4.4.4 

F. Message Processing Region Simulation 4.4.5 

G. An Input Message Editor 4.4.5 

Visual Aids 4.4.7 



Class Exercises and Solutions 4,4.19 



Bibliography 

Information Management System/360 

Application Description Manual H20'-0524 
Program Description 



O 



4.4.1 



ONLINE PROCESSING (Message Processing) 

Objectives: Upon successful completion of this topic, the 
student is able to: 

1. Convert a batch processing program to a 
message processing program. 

2. Write Data Language/I calls for input messages 
and output messages to terminals. 

3. Describe the necessary program interface to 
simulate a message processing region in a 
batch processing region. 

4. State the significance of an input message 
editor. 

A. The Online Environment 

Teleprocessing with IMS/360 requires either MFT-II or ^IVT. 

(V-1) 

1. System structure and facilities 

(V-1 A) 

2. Scheduling a message processing program 

B. Preparing the Application Program 

1. Required additions to the batch processing program are 
an input/output PCB and Data Language/I calls for input 
and output, 

2. The input/output PCB is not specified at PSB generation 
time but is generated internally by IMS /3 60 when an 
application program is scheduled. 

(V-2) 

3. The one-to-one relationship between the PCBs generated 
at PSB generation time and the PCBs in the linkage 
section of the COBOL program exists but in an indirect 
manner. 



4.4.2 



o 



o 



(V-3) 

4. Additional PCBs may be added for outputting to terminals 
other than the inputting terminal. If output is for 
other than the input terminal, another terminal PCB must 
be present. The name of the I/O PCB cannot be altered 
in the COBOL program. 

5. If the output is to be processed by another message 
processing program, an alternate PCB is used for output. 
The destination is not a logical terminal name but 
rather a transaction code. 

(V-4) 

6. Format of the terminal PCB at PSB generation time. 

(V-5) 

7. Format of the terminal PCB mask in the COBOL program. 



(V-6) 



C. Calling for an input message 



1. The first line of a message is obtained with a GET 
UNIQUE call. No SSAs are allowed. 

2. Subsequent lines of a message are obtained with a GET 
NEXT call. No SSAs are allowed. 

3. The GET UlIIQUE call is used to obtain the first line of 
the message. A GET NEXT call after the last segment of 
a message has been obtained will result in the returning 
of a status code indicating this condition. 

4. Structure of the calls for messages. 

(V-7) 
D. Outputting a response 

1. A Data Language/I INSERT call is used to enqueue a line 
of an output message. Ho SSAs are allowed, 

2. Each line of the output message should be terminated 
with a carriage return character. A decimal 21 ' (CR) . 



4.4.3 



3. More than one line of output can be placed in the output 
area before making the INSERT call. 

4. Multiple INSERT calls given in succession will result in 
one message only. 

(V-8) 

(V-9) 

5. Status codes for Data Language/I message calls. 



(V-10) 



E. Message Formats 



1. The input m.essage has three fields. The first field is 
a half-word binary field containing the total number of 
characters in the message line including all three 
fields. The maximum count is 136. 

2. The second field of the input m.essage is a half-word 
which is reserved by IMS/360. 

3. The TEXT portion of the message is the message exactly ^~^ 
as it was entered from the terminal. This includes the (^^ 
transaction code, the message text, and the carriage 
return character. 

If the message consists of multiple lines of text, each 
subsequent line has the same format. 

The transaction code appears only in the first line. 

If a password is entered with the m.essage, it is edited 
out before getting to the application program. A blank 
is placed between the transaction code and the first 
text character. 

The only two acceptable delimiters for the transaction 
code are a blank or a left parenthesis. 

4. The format of an output message is the same as the input 
message format but the contents of the text portion are 
different. 

No logical terminal name is included in the output 
m.essage. The destination is determined from the PCB. 
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5. In COBOL, the count field is supplied by the application 
programmer and is equal to the length of the TEXT 
portion plus 4. 

6. The two byte field following the count is reserved for 
Data Language/I use and must be binary zeros. 

7. Device control characters may be inserted into the 
message where it is desired to format the message at the 
terminal output device. 

Idle characters are automatically supplied for tabs and 
carriage returns . 

8. Passing a message from one application program to 
another has the same format as a message to an output 
terminal. The destination is obtained through the PCB 
reference. 

Password security is not available to a program-to- 
program message. 

(V-11) 

F. Message Processing Region Simulation 

Cj 1. Message processing region simulation is not supplied as 

a part of the distributed IMS/360 program. 

2. The checkout of any message processing program in the 
online terminal environment is often impractical. 

3. A technique for simulation is presented here. Minimal 
change is required when converting the application 
program to a message processing program. An example can 
be found in the IMS/ 3 60 Program Description Manual . 

4. The simulation is accomplished by writing two 
interfaces. The first interface (A) is used to modify 
the PCB parameters v/hich are passed to Data Language/I. 
The second interface (B) is used to simulate message 
input and output. 

G. An Input Message Editor 

1 . In order to allov; freedom in entering a message at a 
terminal, it may be desiral^le to write an input m^essage 
editor. 



4.4.5 



2. The input message editor could accept a relatively free 
form input and convert it to a number of fixed length 
fields to be operated on by a COBOL or PL/I program. 

3. A complete guide as to how to write an input message 
editor can be found in the Program Description Manual. 
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IHS/350 SYSTEM ORGANIZATION 



TERMINAL 



TERMINAL 



o 



QUEUE 



o 




DATA 
BASES 



OS/360 MFT OR MVT 


IMS/360 
CONTROL 
PROGRAMS 


IMS/350 
MSG. PROC. 
PROGRAMS 


OTHER 

OS 

JOBS 


COMMUNI- 

CATIOi^ 

CONTROL 


REGION 
CONTROLLER 






APPLICATION 
SCHEDULER 




DATA 
LANGUAGE/ I 





PROGRAM 
LIBRARY 



LOCAL 
JNPUT JOB 
STREAMy 



CONCURRENT ONLINE AND BATCH FACILITIES 

't.4.7 it_v-i 




^.4.8 



4-V-lA 



o 



I/O PCB 



O 



MESSAGE PROCESSING PROGRAM 



COBOL 



o 



o 
o 
o 
o 

LINKAGE SECTION 




PSB 


\ 
\ 
\ 
\ 
\ 
\ 
\ 
V 
\ 
\ 




TERMINAL PCB 

O 
O 

o 
o 
o 

" "DAfA lASl'PCB-A 

O 

o 
o 
o 
o 
o 


POINTER 


PCB-A 


DATA BASE PCB-B 

O 

o 
o 
o 
o 




PCB-B 


PROCEDURE DIVISION 



/ 



PST 



TERMINAL 
PCB 



4.4 9 
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ALTERNATE OUTPUT PCB 



MESSAGE PROCESSING PROGRAM 



COBOL 



o 










o 




o 




LINKAGE SECTION, 
TERMINAL PCB-1 




PSB 




PST 






^ 

^ 
^ 
^ 


TERMINAL PCB-1 


POINTER 


y 

y' 

y 

y 




TERMINAL PCB-2 


'^^-^^ 


- TERMINAL PCB-2 




TERMINAL PCB-3 




TERMINAL PCB-3 




DATA BASE PCB-A 




DATA BASE 
PCB-A 




DATA BASE PCB-B 


^~— — _^ 
















DATA BASE 








PCB-B 
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PCB FORMAT 



o 



PCB TYPE=TP, LTERM= 



TRANSACTION CODE 
LOGICAL TERMINAL NAME 



o 



TERMINAL PCB 



LOGICAL TERMINAL NAME 
8 BYTES 



RESERVED DATA LANGUAGE/ I 
2 BYTES 



STATUS CODES - 2 BYTES 



CURRENT DATE - ^ BYTES 



CURRENT TIME - 4 BYTES 



INPUT SEQUENCE NUMBER 
2 BYTES 



NOT USED - 2 BYTES 



OTHER THAN 
FIRST PCB 



\ FIRST PCB 
IS 
AUTOMATICALLY 
GENERATED BY 
IMS/360 



o 
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.1 JMJ\nUL_ 

01 


01_0 1 1 UM 1 

I-O TERM. 








02 


LTERM-NAME 


PICTURE X(8). 






02 


DLI -RESERVE 


PICTURE XX. 






02 


STATUS-CODE 


PICTURE XX. 






02 


DATE-TIME. 










03 JULIAN-DATE PICTURE S9(7) 


COMPUTATIONAL-3 






03 TIME-OF-DAY PICTURE S9(7) 


COMPUTATIONAL-3 






03 MSG-SEQ 


PICTURE S9(3) 


COMPUTATIONAL. 






03 FILLER 


PICTURE XX. 




01 


ALT 


TERM-A. 








02 


LTERM-NAME-A 


PICTURE X(8). 






02 


DLI-RESERVE-A 


PICTURE XX. 






02 


STATUS-CODE-A 


PICTURE XX. 




01 


ALT 


TERM-B. 








02 


LTERM-NAME-B 


PICTURE X(8). 






02 


DLI-RESERVE-B 


PICTURE XX. 






02 


STATUS-CODE-B 


PICTURE XX. 




01 


DATABASE. 








02 

O 

o 
o 


DBASE-NAME 


PICTURE X(8). 





PROCEDURE DIVISION. 
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MESSAGE CALLS 



MESSAGE A 



LINE 1 


jfflk 


^^ 


LINE 2 






LINE 3 







GET UNIQUE 
GET NEXT 
GET NEXT 



o 



MESSAGE B 




GET UNIQUE 
GET NEXT 



ENTER LINKAGE. 



CALL 'CBLTDLI' USING FUNCTION, TERM-PCB-IN, 
MSG-SEG-IO-AREA . 
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INSERTING AN OUTPUT MESSAGE 



FIELD CONTENTS 



FIELD-A NO STOCK ON HANDcr 

FIELD-B BACK ORDERS ARE PRESENTcr 

FIELD-C THE NEXT SCHEDULED ARRIVAL IS XX-XX-XX cr 

CALL 'CBLTDLI' USING INSERT-FUNC, TERFl-PCB, FIELD-A, 

CALL 'CBLTDLI' USING INSERT-FUNC, TERM-PCB, FIELD-B. 

CALL 'CBLTDLI' USING INSERT-FUNC, TERM-PCB, FIELD-C, 

THESE THREE CALLS CREATE ONE OUTPUT MESSAGE 



FIELD CONTENTS 



FIELD-D NO STOCK ON HANDcr BACK ORDERS ARE 

PRESENTcr THE NEXT SCHEDULED ARRIVAL 
IS XX-XX-XX. CR 

CALL 'CBLTDLI' USING INSERT-FUNC, TERM-PCB, FIELD-D 
THIS CALL CREATES ONE MESSAGE OF THREE LINES 
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n INPUT MESSAGE CALLS 



STATUS CODE MEANING 



o 



o 



AB NO SEG(€NT I/O AREA IN CALL. 

AQ READ I/O ERROR. MESSAGE CHAIN CANNOT BE 

FOLLOWED. MINIMUM OF ONE LOST MESSAGE 

AR READ I/O ERROR. MESSAGE SEGMENT HAS BEEN 

LOST. MESSAGE CHAIN IS STILL INTACT. 

AS QUEUES NOT AVAILABLE 

QC NO MORE INPUT MESSAGES 

QD NO MORE SEGMENTS FOR THIS MESSAGE 

QE GET NEXT REQUEST BEFORE GET UNIQUE 

QG QUEUE MANAGER ERROR 

QI GET NEXT AFTER END OF MESSAGE 

QJ- UNKNOWN SYSTEM ERROR 



'(.'t.15 it-V-S 



INSERT MESSAGE CALLS 



STATUS CODE MEANING 



AB NO SEGfiENT I/O AREA IN CALL 

AP I/O ERROR IN OSAM 

QF SEGMENT LESS THAN FIVE CHARACTERS 
(SEG LENGTH IS MSG TEXT PLUS FOUR 
CONTROL CHARACTERS) 

QG QUEUE MANAGER ERROR 

QH TERIilNAL SYMBOLIC ERROR - OUTPUT 
DESIGNATION UNKNOWN TO IMS/350 
(LOGICAL TERMINALS OR TRANSACTION 
CODE) 
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o 



FORMAT OF A MESSAGE 




L 



MESSAGE LINE UP TO 132 CHAR. 



RESERVED FOR DATA LANGUAGE/I (HALF-WORD BINARY) 



COUNT IN BYTES INCLUDING C, Z, and TEXT (HALF-WORD BINARY) 



TRANSACT (PASSWORD) THIS IS THE MESSAGE TEXT 



TEXT 



TRANSACT THIS IS THE MESSAGE TEXT 



TRANS THIS IS THE MESSAGE TEXT 



TEXT 



TRANS THIS IS THE MESSAGE TEXT 



k.k.iy 
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ESSAGE PROCESSING REGION SIMULATION 



ENTRY ! 



DLITCBL 



SIMULATOR 
INTERFACE A 



MESSAGE 

PROCESSING 

PROGRAM 



MESSAGE CALLS 



■DATA BASE CALLS 




(MESSAGE 
INPUT) 



(MESSAGE 
OUTPUT) 



'».'». 18 
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CLASS EXERCISES 



INSTRUCTORS* NOTE: 

See Section 5 - Instructor Materials for additional 
information on this exercise. 



Convert the batch program written in the last module to a 
message processing program. Do not change any existing logic 
or data base calls. Do not include an alternate PCB. 



O 
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FUNCTIONAL DESCRIPTION 



Outline 



A. System Definition 4.5.2 

B. IMS/360 System Log 4.5.2 

C. Checkpoint, Restart, Data Base Dump and Recovery 4.5.3 

D . Security Maintenance 4.5.4 
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IMS/360 FUNCTIONAL DESCRIPTION OF FACILITIES 

Objectives: Upon completion of this topic, the student is able 
to : 

1. Descrbie the process of IMS/360 system 
definition. 

2. Describe the logging process of IMS/360 and 
the reports produced by the statistical 
utilities . 

3. Describe the checkpoint, restart, and data 
base dump and recovery facilities of IMS/360. 

U. Describe the security maintenance facilities 
of IMS/360. 

(V-1) 

A, System Definition 

The IMS/360 system definition is similar to OS/360 
generation. 

1. Macro-instruction control cards describing the user's 
IMS/360 system are input to Stage 1 . 

2. Output from Stage 1 is a set of punched control cards 
describing a series of jobs which are input to Stage 2. 

3. Output from Stage 2 is the IMS/360 system. 

B. IMS/360 System Log 

The system recorder is designed to facilitate the placing, of 
data on the system log. The information is used primarily 
for checkpoint/restart and data base recovery functions. 

(V-2) 

1. Some information is written for restart 

a. Message queue control blocks 

b. Checkpoint data, consisting of dynamic fields in 
IMS control blocks which vary as a result of normal 
processing or m.aster terminal commands. 
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c. OS/360 data set open or close 

d. Changes to a data base on an optional basis (adds, 
deletes, and updates) 

2. For restart and statistics 

a. All messages received from terminals 

b. All messages sent to terminals or programs 

3. For statistics only 

a. Error segments from or to terminals 

b. At completion of sending a record to a terminal 

c. Application accounting record 

d. IMS/360 Accounting Record 

4. Records are written to the log using QSAM, 

(V-3) 
r~^ 5. Statistical utilities are provided to process log tape. 

(V-4) 

6. Types of statistical reports 

(V-5 thru V-10) 

7, Examples of statistical reports 

(V-11) 

C. Checkpoint, Restart, Data Base Dump, and Recovery 

There are four checkpoint commands and two data base dump 
commands . 

1. The simple checkpoint command causes the IMS/360 control 
blocks and tables which control the system to be written 
to the log tape. 

2. The CHECKPOINT FREEZE causes orderly shutdown of 
communications, stops program scheduling, dumps control 
blocks, and terminates IMS/360. 



O 
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3. The CHECKPOINT DUMPQ causes the same action as the 
CHECKPOINT FREEZE, and, in addition, dumps the input and 
output message queues to the log tape. 

4. The CHECKPOINT PURGE requires the longest to shut down 
as all input messages in the sy,stem at the time of the 
request are processed and all output messages are sent 
to their destinations if possible. The control blocks 
are then written to the log tape. 



5. '' The DBDUMP command causes the data base to be dumped to 
V tape after transactions which update it ^re stopped. 



6. The DBDUMP STOP is a command which prepares the system 
for data base reconstruction. 

7. There are two types of restart and a data base recovery 
command. 

a. NRESTART is used to initially start the system and, 
after. a norm.al CHECKPOINT command has been used, to 
shut the system down. 

b. ERESTART, or emergency restart, is used after a 
system failure such as the loss of core or the loss 
of message queues. 

c. DBRECOVERY is used to reprocess transactions 
against a damaged data base which has been rebuilt 
from a previously dum.ped copy. 



(V-12) 



D. Security Maintenance 



The IMS/360 system definition supplies no password 
security capabilities. 

1 . The terminal and password security is assigned and 
changed through a utility program. 

2. This structure allov/s the security information to be 
changed without a new IjMS/360 generation. 

(V-13) 

3. Through use of the security maintenance program (SMP) , 
passv/ords can be changed or assigned for transaction 
codes, terminal command verbs, program status changes, 
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data base status changes, and logical and physical 
terminal status changes. 



O 



O 
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SYSTEM DEFINITION FLOW 



SYSTEM DEFINITION 
CONTROL CARDS 



STAGE 1 
ASSEMBLE MACROS 



OUTPUT IS A 
SERIES OF OS/360 
JOBS 



STAGE 2 ASSEMBLIES, 
MOVE/COPIES, AND 
LINK EDITS 



IMS/360 SYSTEM 
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I11S/360 SYSTEM LOG ENTRIES 



o 



FOR RESTART 

MESSAGE QUEUE CONTROL BLOCKS 

• CHECKPOINT DATA 

e OS/360 DATA SET OPEN OR CLOSE 

CHANGES TO A DATA BASE 



FOR RESTART AND STATISTICS 

e flESSAGE FROM TERl'lINAL 

e MESSAGE TO TERMINAL OR PROGRAF 

FOR STATISTICS ONLY 

e ERROR SEGMENTS 

COMPLETION OF SEND RECORD 

• APPLICATION ACCOUNTING RECORD 

• IMS/360 ACCOUNTING RECORD 



WHEN WRITTEN 

WHEN CHANGED 

AT TIME OF CHECKPOINT 

WHEN DATA SET OPENED OR CLOSED 
INSERT, DELETE, OR REPLACE 
AGAINST A DATA BASE 



WHEN MESSAGE COMPLETE 
WHEN MESSAGE COMPLETE 



WHEN HARDWARE ERROR 
COMPLETION OF SENDING 
TERMINATION OF APPL. PROGRAM 
IMS/360 IS STARTED OR STOPPED 



o 
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PROCESSING THE LOG 



Q LOG DATA SET 



v.. 



i 



EDIT PASS 1 



T 
a 



SORT 

T 

a 



EDIT PASS 2 



T 
a 



MESSAGES AND STATISTICS RECORDS 
EXPLODED FROM MESSAGES 




a 



MESSAGES (IN SEQ, BY 
TRANSACTION CODE) 



REPORT WRITER 



MESSAGE SELECT 
AND DISPLAY 




MSGS 




REPORT 



h.5. 
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TYPES OF STATISTICAL REPORTS 



o 



o 



MESSAGES QUEUED BUT NOT SENT -- BY TERMINAL 

e LINE AND TERMINAL LOADING BY TIME OF DAY 

e ERROR REPORTS ON BAD TRANSMISSION 

TRANSACTION REPORT 

TRANSACTION RESPONSE REPORT 

e APPLICATION ACCOUNTING REPORT 

• IMS/350 ACCOUNTING REPORT 



"t.s.g 5-y-k 



j:- 



I 
< 

I 



IMS ACCOUNTING REPORT DATE 1-22-1 



IMS CPU TIME FOR DAY 1/20/68 IS 07H m 07, 9S OR 28,027. 9S 

IMS CPU 'TIME FOR DAY 1/21/58 IS 05H 30M 29. 5S OR 23,^129. 5S 

IMS CPU TIME FOR DAY 1/22/68 IS 07H iJOM 39. 5S OR 27,639. 5S 

IMS CPU TOTAL TIME IS 21H 58M 16. 9S OR 79,096. 9S 



o 



APPLICATION ACCOUNTING REPORT 



DATE 01/02/68 



DATA BASE COUNTS 
PROGRAM TRANSACTION MESSAGE COUNTS^, /'-^ ^MOVE BAD 

NAKlE NAME PRI QTY GU GN ISRT GU GN S <. CALL CC 



TOT MESS AVR 
CPU TIME TIME 



PSBOOOOl TRANSOOl 01 71 1^2 1^1 71 81 42 

02 81 162 16 81 91 31 

** 152 30ii 30 152 172 73 

SYSTEM TOTAL 152 m 30 152 172 73 






1 

1 
2 
2 



1 


1 

1 



10.65S 0.15S 

12.15S 0.15S 
22. BOS 0.15S 



1 
< 

1 



TRANSACTION RESPONSE REPORT DATE 08-31-67 



TYPE TOTAL LONGEST 95% 757. 50% 25% SHORTEST 

TRANSACTION RESPONSES RESPONSE RESPONSE RESPONSE RESPONSE RESPONSE RESPONSE 



05Fi 30. OS 05M 00. OS 03M 00. OS 02M 20. OS OlM 00. OS 40. OS 
20. OS 15. OS 8. OS 6. OS 4. OS 3. OS 





T231T05M 


25 




T2359ALL 


5 


4:r 

•• 







I 
< 

I 



o 



o 



TRANSACTION REPORT 



4:- 

U1 



TRANSACTION 
CODE 


R/S 


TOTAL 
MESSAGES 


TOTAL 
CHARACTERS 


AVG 
SIZE 


HOURLY 
00-07 


DISTRIBUTION 
07-08 08-09 


T21CAS1R 


R 


5 


250 


50 





- 


T21CAS2S 


S 


15 


1250 


83 


5 


2 3 


SYSTEM 


S 


15 


1250 


83 


5 


2 3 


TOTALS 


R 


5 


250 


50 





■ 



I 
< 

1 

00 









LINE AND TE 


;RMINAL REPORT 




DATE 2/1 1/69 






LINE TERM 


R/S 


TOTAL 
MESSAGES 


TOTAL 
CHARACTERS 


AVG. 
SIZE 


HOURLY 
00-07. 


DISTRIBUTION 
07-08 08-09 




001 AO 
T15CASIA 


S 


12 


600 


50 


1 


3 


2 






R 


14 


840 


60 


-■ 


2 


2 




002 AO 
T15CAS2A 


S 


4 


320 


80 


' 








• 

Ul 




R 


it 


80 


20 













T15CAS2B 


S 


6 


180 


30 


1 





1 






R 


5 


200 


40 


-■ 


2 


1 




TRM 


S 


10 


500 


50 


2 





2 




TOTALS 


R 


9 


280 


31 


1 


2 


2 




SYSTEM 


S 


22 


1100 


50 


3 


3 


4 




TOTALS 


R 


23 


1120 


48 


2 


4 


4 


1 
< 

1 


. 

















o o 



MESSAGES - QUEUED BUT NOT SENT DATE 05/31/67 





TRANSACTION 
CODE 


TOTAL 
MESSAGES 




T19QCA2A 


9 




T19QCA2B 


19 


-p- 
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TERMINAL COWANDS 



/CHECKPOINT 
/CHECKPOINT FREEZE 
/CHECKPOINT DUKPQ 
/CHECKPOINT PURGE 



/DBDUHF STOP 
/NRESTART 
/ERESTART 
/DBRECOVERY 
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SECURITY MAINTENANCE FLOW 



INPUT 
STATEMENTS 



o 



SECURITY 

MAINTENANCE 

PROGRAM 




SECURITY 
LISTING 



o 
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SECURITY MAINTENANCE 



ADD, DELETE, OR CHANGE PASSWORDS FOR THE FOLLOWING 
RESOURCES : 

• TRANSACTION CODES 

• TERMINAL COMMAND VERBS 

• PROGRAMS 

• DATA BASES 

• LOGICAL TERMINALS 

• PHYSICAL TERMINALS 

SPECIFY TERMINAL SECURITY FOR; 

• TRANSACTION CODES 

• COMMAND VERBS 
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IMPLEMENTATION AND INTERNALS 



Outline 



A. IMS/360 Initialization and System Flow 4.6.2 
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E. Security Maintenance 4.6.21 

F. Command Language Facilities 4,6.24 

G. Checkpoint, Restart, Data Base Dump and Recovery 4,6,30 
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I, Message Queue Space Allocation 4.6,40 
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Visual Aids 



Class Exercises and Solutions 
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IMPLEMENTATION AND INTERNALS 



c 



Objectives: 



Upon successful completion of this topic, the 
student is able to: 



1. 
2. 



5. 
6. 



9. 



Describe 
IMS/360 



the 



initialization process for 



Describe the flow of control between the batch 
and message processing regions and the IMS/360 
control modules 

Write the necessary control cards and generate 
an IMS/360 system 

Write the necessary input cards to the 
security maintenance program to establish 
security requirements for the IMS/360 system. 

Describe the terminal commands for IMS/360. 

Explain the use of the checkpoint and restart 
facilities during normal and abnormal 
conditions. 

List the various log entries and statistical 
and accounting reports available from the 
system. 

Explain the relationship of the various 
communication control blocks in a svzitched and 
non-switched environment. 

Estimate storage requirements for an IMS/360 
system 



INSTRUCTORS' NOTE: 

This section describes how the system is initialized and shows 
the flow of control once the system is loaded. 

A. IMS/360 Initialization and System Flov; 

1 . Assume that OS/360 is to be loaded. An IMS/360 cold 
start is to take place. 

a. The operator depresses the IPL key. 



a. 6. 2 



L. 



(V-1) 

b. The OS/360 nucleus is loaded, system queue space is 
allocated, and messages are sent to the OS/360 
console asking for system parameters, time, 
automatic initialization of readers, writers, and 
initiators. The operator responds in the normal 
manner when starting OS/360. 

(V-2) 

c. The operator keys in start WRITER and READER 
commands . 

d. JCL to start IMS/360 is placed in the card reader. 

e. The job is read in and placed in the OS/360 System 
Job Queue. 

(V-3) 

f. The operator starts an INITIATOR. 

^^^ 2. The INITIATOR reads the job from the job queue, loads 

Cj IMS/360, and gives it control. Initiator will usually 

be overlayed by IMS/360. 

3. IMS calls its initialization routines and gives them 
control. 

(V-.4) 

a. The initialization routine loads the Data 
Language/I ISAM, OSAM, BTA^l, and QSAM into the IMS 
region if they are not to reside in Link Pack. The 
stand-alone modules and access methods are loaded. 

b. Buffer pools are created for message queues, data 
bases, PSB and DBD control blocks 

c. The master terminal line group is opened. 

(V-5) 

d. A message is sent to the master terminal: "IMS 
READY 068092/115930" (Julian date and time). 



O 



The master terminal is polled as IMS/360 is 
expecting a restart command. 
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4 . The master terminal operator enters an /NRESTART command 
with the appropriate parameters. Since this is a cold 
start, C|tcPT=0 would be one parameter. 

a. "NRESTART IN PROGRESS" will be typed on the master 
terminal by IMS/360. 

b. The message queue data sets and the log tape are 
opened. 

c. The security tables are loaded and initialized as 
part of the /NFiESTART command if the aporopriate 
parameters are entered from the master terminal, 

d. IMS sends a message to the master terminal: "*COLD 
START COMPLETED, ENTER START COMMANDS". 

5. The operator will start other lines on the system 
through the /START command and IMS responds with *START 
COMMAND COMPLETED". A message is provided on each 
terminal that is started: "TERMINAL STARTED". The 
other lines are then polled and input will be accepted 
or output transmitted. 

6. In order for message processing programs to be executed, 
it is necessary to start a message recrion. 

a. A message region may be started by entering a deck 
of JCL cards through the card reader or by a /START 
MSGREG command from the master console. 

b. The /START MSGREG command causes the IMS control 
program to start one message region. If the 
command is entered a second time, another region 
will be started. 

c. The /START MSGREG command causes a START READER 
command to be simulated and the JCL for a job is 
read from disk and placed in the system job queue. 
Part of the /START MSGREG command's responsibility 
is to start an initiator which will later be used 
to initiate the message region as an OS/360 job. 

(V-6) 

7. When a message region is started, a region controller is 
loaded into the region and given control (or a copy of 
the reentrant region controller alreadv in link pack is 
given control) . The region controller is approximately 
500 bytes. 
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a. The region controller is resident for the life o-f^ 
the message region. 

b. The region controller, upon gaining initial control 
in the message region, executes one of the 
interregion SVCs and informs IMS that the region is 
available for message processing, 

(V-7) 

8. Immediately after IMS/36 gains control and the messaae 
region's region controller is placed in the wait state, 
the IMS dispatcher gives control to the IMS scheduler if 

. there is a message to be processed. 

a. The scheduler determines the program to be loaded 
and executes another interregion SVC to post the 
region controller of the message region control. 

b. One of the parameters v/hich is passed to the region 
controller is the name of the program to be loaded. 

(V-8) 

9. Prior to loading the application nrogram. , the region 
controller loads a module called the Data Language/I 
block loader (DFSIDLLO) which determines if sufficient 
control blocks are in core in the IMS reaion to execute 
the program. These are blocks such as the PSBs and 
DBDs. 

a. If the necessary blocks are not available in core, 
the blocK loader reads in the necessary information 
and builds the control blocks, 

b. After the control blocks are built, the block 
loader requests, through the interregion SVC, that 
the blocks be moved into the IMSO region. 

c. IMS (Data Language/I block move module) moves the 
control blocks and issues another interregion SVC 
to return control to the block loader. The block 
loader then returns to the region controller. 

d. The region controller ATTACHes the appropriate 
program and it is loaded into core and given 
control. 

e. The application program calls on Data Language/I 
with a GET UNIQUE for the first segment of the 
input message. 
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(V-9) 

Once IMS/360 is loaded and initialized, it is ready to 
start accepting messages from the master terminal. 

a. The IMS/360 dispatcher of the Type region gives 
control to the telecommunications facility for 
communications v/ith the master terminal. 

b. The master terminal operator restarts the system. 

c. The restart facility restarts the system from, a log 
tape if it is a "Warm Start". No input log tape is 
required if this is a "Cold Start". 

d. The restart facility returns control to the 
telecommunications facility, which allov7S the 
master terminal operator to start the other 
communication lines. 

e. The telecommunications facility returns control to 
the dispatcher. 

f. Telecommunications receives the incoming message 
and invokes the common service facility. 

g. The common service facility logs the message, 
queues it on disk, and returns control to the 
dispatcher through the telecommunications facility, 

h. Ivhen a complete message is received, 
telecommunications notifies the message scheduling 
facility of input available for processing. 

i. The region controller of the message region is 
given control by an SVC. 

j , The application program, is loaded by the region 
controller and given control. 

k. The message processing program accesses messages 
and data bases through the Data Language/I 
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facility. (Control comes through the IMS/360 
dispatcher. ) 

1. When the message or data base segment is given to 
the application program, another SVC is issued to 
give control back to the application program. 

m. The same sequence of events (as obtaining a 
message) is repeated when sending output. 

n. When the application program terminates, the region 
controller gets control and issues an SVC to give 
the IMS/360 dispatcher control. 

o. The dispatcher passes control to the message 
scheduling facility, which notifies the 
telecommunications facility of pending output. 

p. Subsequently, the telecommunications facility gets 
control and invokes the common service facility to 
obtain a message from the queue. It is then 
transmitted by the telecommunications facility. 

q. Based upon either message volume or notification 
from the master terminal, a checkpoint of the 
system occurs. This is performed by the checkpoint 
facility through the common service facility. 

11. Once IMS/360 is initiated, a Type 2 (batch) processing 
program can be initiated. 

a. The Type 2 (batch) processing program is controlled 
through a region controller in the same manner as a 
Type i region. 

b. The batch program has access to the input messaae 
queues, data bases, and output message queues. 

c. The transaction type to be processed from the input 
message queue by the batch processing program is 
specified in the JCL for the batch proaram (on the 
EXEC card) . 

12. It is recommended that a Type 2 batch processing program 
not update a data base used for online processing. Data 
base backout does not handle data base backout for Type 
2 batch regions. 
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INSTRUCTORS* NOTE: 

The terms "tables" and "blocks" are sometimes used interchangebly 
in this section. The specific structure of various blocks and 
tables can be found in the IMS/360 System Manual, 

B, Communications Control 

Communications Control provides the user an interface between 
his remote terminal and IMS/360. Within the provisions of 
security control, transactions may be entered from a remote 
terminal, resulting in the scheduling of message programs 
that may update or inquire into one or more bata bases. 

(V-10) 

1 . Inputting a message from a terminal 

a. The user keys in the message. 

b. The input message is received by communications 
control and is translated from terminal code to 
EBCDIC. 

c. Backspace and control character elimination is 
provided . 

d. A check is made to determine if the segment ends 
with the characters **. If so, the segment is 
cancelled and ignored. 

e. The destination of the message is determined from 
the transaction code. 

f. Security requirements are checked 

g. Message is written on the log and queued on a 
random access device. 

h. The application scheduler is notified that a 
complete message has been received. 

(V-11) 

2, Processing the messaae 



V. 



4.6.8 



o 



a. when the user program which processes the entered 
transaction is available and scheduled, it requests 
a message from the message queue. 

b. The user program obtains the message a segment at a 
time and may generate one or more messages as a 
result. 

(V-12) 

3. Outputting the response 

a. Output messages are written on the log and queued 
on a random access device by logical terminal 
destination or transaction code. Output from one 
program may be input for another program. 

b. If the output message has been queued upon a 
logical terminal, the message is dequeued when the 
output physical terminal and its associated line 
are available, 

c. The message is translated to terminal code and 
edited relative to the insertion of control 
characters. 

d. The message is sent to the specified terminal. 

(V-13) 
U. Communication Blocks 

a. Communication Line Block (CLB) - this is the basic 
control block for communications. 

1 ) Each physical line is represented by a CLB and 
it is used for control of that line. 

2) The basic pointer in this block is to a 
Communication Terminal Block (CTB) , 

b. Communication Terminal Block (CTB) - each physical 
terminal is represented by a CTB. CTBs are grouped 
according to lines and are generated in line num.ber 
order . 

1 ) The number of the associated line is present 
in the CTB. A pointer to the associated CLB 
can be calculated, as the CLBs are in line 
number order. 
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2) An index to a communications terminal table 
(CTT) exists in the CTB, providing the ability 
to calculate the associated CTT address. 

c. Communications Terminal Table - there is an entry 
in the CTT for each type of terminal. The CTT 
provides information about the hardvjare features of 
a terminal. A separate CTT exists for each type of 
terminal and for each set of unique hardv/are 
features within the terminal type. 

d. Communications Name Table (CNT) - each logical 
terminal is represented by a communications name 
table. 

1 ) The CNT functions as an output queue block and 
points to the physical terminal (CTB) to which 
the output will be directed. Although any 
number of logical terminals may direct their 
output to one physical terminal, one logical 
terminal can direct its output to only one 
physical terminal at a given time. The 
association of a logical terminal with a given 
physical terminal can be changed by means of 
the command language (/ASSIGN) . 

2) Many logical terminals may point to one 
physical terminal. 

3) A logical terminal may point to only one 
physical terminal. 

4) The destination of messages can be changed by 
changing the relationship of physical and 
logical terminals (/ASSIGN) . 

(V-14) 

e. Multiple CTBs may be related to a CLE. 

1 ) A pointer always exists to the first CTB 
related to the line. 

2) Upon the receipt of the first segment of a 
message from a terminal on the line, a pointer 
is dynamically established from the CLE to the 
inputting CTB. 

3) Multiple logical terminals (CNTs) may be 
related to a CTB. 
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4) Multiple CTBs on the same line point to a 
single entry in the CTT. 

(V-15) 

f. A single CNT (logical terminal) may be associated 
with one physical terminal (CTB) for input and 
another for output. 

This can be accomplished through use of the /ASSIGN 
command . 



INSTRUCTORS' NOTE: 

This section logically breaks away from the communications 
blocks. The blocks described here are used for controlling and 
routing the message once it is in the system. 

(V-16) 

g. Scheduler Message Block (SMB) - each transaction 
code known to the system is represented by an SMB. 

1 ) The SMB contains a relative offset pointer to 
an entry in the Program Specification Block 
Directory, thus tieing this transaction code 
to a specific message program for processing. 

2) There are three priorities - normal, limit, 
and current, contained in the SMB, as well as 
the count of unprocessed messages of this 
type. 

h. Scheduler Priority Table (SPT) - this table 
(actually a number of separate blocks) is used for 
queuing SMBs by priority. 

1) Priorities range from to 15. Priority 1 b is 
not available as it is reserved for the 
system. Priority is a null priority and 
will not cause a message processing program to 
be scheduled. 

2) A batch program can request the priority 
messages. 

i. Message Request Queue (MRQ) - the MRQ is 
interrogated by the dispatcher to determine if a 
message is ready for processing. If the Partition 
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Request Queue (PRQ) is also posted, then a 
partition is available and the application 
scheduler gains control. 

1 ) The' MRQ indicates the presence of messages 
within the system through an event control 
block. 

2) When a message is enqueued on an SMB, SMB is 
enqueued on the SPT representing the 
appropriate priority. The specific SPT is 
then enqueued on the MRQ in priority sequence, 
and the MRQ is posted. 

Schedulable priority levels are then obtained 
in order by dequeuing them off the MRQ. 

(V-17) 

j , The MRQ contains pointers to the highest and lowest 
SPTs with SMBs ready for scheduling. 

SMBs are chained off the SPT entries by priority 

and order of arrival within priority. SMBs are 

FIFO enqueued at the appropriate SPT priority 
level. 

(V-18) 

k. The SMB has messages queued on it. The queue 
consists of Queue Control Records (QCRs) . A QCR 
may contain a pointer to an incore buffer, a 
pointer to a relative disk block containing the 
message, or it may contain the message. 

Messages of one segment are contained in the QCR. 
If it is necessary to queue on disk, a relative 
block pointer to the message is established. 



INSTRUCTORS' NOTE: 

The fields of all communication control blocks and their function 
can be found in the Blocks and Tables chapter of the System 
Manual. 



C. Switched Communications Network 
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1 . Before discussing the switched network it is important 
to have a good understanding of the nonswitched 
environment. 

(V-19) 

a. The relationship between the physical terminal and 
the logical terminal is a fairly stable one and is 
defined at system definition time. This can be 
varied with the /ASSIGN command. 

b. Typically, there is a one-to-one relationship 
between the physical terminal and the logical 
terminal. There may, however, be a number of 
logical terminals associated with a physical 
terminal. 

(V-20) 

2. In the switched network environment, the relationship 
between a logical terminal and a physical terminal is 
not established until the remote user dials the computer 
and issues the /lAM command. 

The relationship between a terminal user, a physical 
terminal, a communication network, and IMS/36 logical 
terminals at system definition time appears as shown. A 
physical terminal may have the possibility of relating 
to a number of logical terminals. 

Once the user dials the System/360 computer and issues 
the /lAM command to sign himself on to IMS/360, a stable 
relationship between the physical teinninal and one or 
more logical terminals is established. 

(V-21) 

3. In the switched communications network environment, the 
IMS/360 user employs system definition to define one or 
more communications lines. 

a. Associated with each line there must be one logical 
terminal designated as the inquiry logical terminal 
for the dialable communication line. 

b. In addition to an inquiry logical terminal for each 
dialable communication line, pools of logical 
terminals may be defined at system definition time. 

c. One or more logical terminals from the pools of 
logical terminals are associated v/ith a particular 
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line when a remote terminal user dials the IMS/360 
system. 

(V-22) 

d. Within any logical terminal pool for a switched 
communications network, the IMS/360 user can define 
logical terminal subpools, 

1) A logical terminal subpool is composed of one 
or more logical terminals within a given 
logical terminal pool. 

2) A particular logical terminal may exist in 
only one pool and subpool. 

3) A remote user may call in and sign on for a 
single logical terminal or all logical 
terminals within a logical terminal subpool. 

(V-23) 

e. After dialing the computer, the relationship is 
established by the /lAM command. 

1 ) The LTERM parameter may specify the inquiry 
logical terminal. 

2) The LTERM may specify a logical terminal from 
the pools of logical terminals, 

3) If LTERM and PTERM parameters are specified, 
all logical terminals v/ithin a subpool are 
associated with the physical terminal. 

(V-24) 

f. The logical terminal subpool concept allows for 
efficient use of communication facilities. If the 
PTERM parameter was specified, all of the output 
queued on each logical terminal in the subpool for 
which the /lAM command was issued is sent to the 
physical terminal. 

g. A subpool might be defined to contain the logical 
terminals for all of the users of a single physical 
terminal. 

While a user is signed onto a logical terminal 
within the subpool, the subpool is unavailable to 
users signing on from other physical terminals. 
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h. The relationship of the control block in a switched 
line group can be seen here. 

4. A /START LINE command, when issued against a switched 
network answering line, results in the specified line 
adapter being enabled, 

(V-25) 

a. A physical connection will be established when a 
remote terminal operator dials the telephone number 
of the answering line adapter, 

b. After a phyiscal connection is established, the 
communications controller monitors all terminal 
input to assure that a logical connection is 
completed before any transactions or commands other 
than /lAM are accepted. 

c. If a logical connection is not established within 
five input messages, the physical connection is 
terminated by disalDling the answering line adapter, 
and reenabling it to answer the next call. 

D. System Generation 

1. IMS/360 is distributed on a nonlabeled, nine or seven 
track 800 BPI tape. An optional tape is available 
containing the source modules. 

(V-26) 

2. The first step is to move the data sets to disk. This 
is accomplished with lEHMOVE. The data sets are 
unloaded copies of partitioned data sets. 



INSTRUCTORS* NOTE: 

The JCL for accomplishing move is in Chapter 2, Volume 1 , of the 
Systems Operation Manual. 

(V-27) 

3. System generation is accomplished by using the IMS/360 
macro-instruction contained within IMS.GENLIB. 

The IMS/360 generation is similar to an OS/360 
generation. It is accomplished in two stages. 
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a. Stage 1 causes a series of jobs to be produced 

b. Stage 2 consists of processing the individual jobs 
produced from Stage 1 . 

A system may be defined for online and batch processing 
or batch-only processing, 

(V-28) 

System generation macros are used in defining the 
IMS/360 system, A complete list of the macros is shown 
here. Each will be treated in turn. 

Note the requirements for batch-only system. 

a. Three groups of macro-instructions are required for 
the description of user resources, 

1) Group 1 describes the OS/360-IMS/360 operating 
environment and resources such as SVCs, 
buffers, and data sets. 

2) Group 2 describes application programs and 
their related resources, 

3) Group 3 describes communication line groups, 
communication lines, and associated physical 
and logical terminals, 

(V-2 9) 

b. IMSCTRL is used to describe the basic IMS/360 
control program options and the Operating 
System/360, with which IMS/360 will operate, 

1 ) SYSTEM - specifies which system environment is 
to be used - MVT-MFT-PCP. 

a) ALL - Generate batch and teleprocessing 
system, 

b) BATCH - Generate batch-only system, 

2) MAXIO - Specifies the maximum number of 
terminal I/O requests, message queue requests, 
and Data Language/I data base requests which 
may be in progress in the IMS/360 control 
program region at any one time. 
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3) MAXREGN - The maximum number of regions or 
partitions to be supported at any one time 

4) COMMSVC - specifies the numbers of the Type 1 
SVC which IMS/360 uses for interreaion 
communication 

5) OCENDA - specifies the load module member name 
to be given the OSAM channel end appendage, 

6) OSAMSVC - specifies the user SVC number to be 
given the OSAM Type 2 SVC. 

7) MSGBUFF - specifies number of incore message 
buffers for multiple line messages, 

8) CKPT - a checkpoint v/ill be written each time 
the specified entries are made to the log, 

(V-30) 

c. MSGQUEUE - defines the input and output single line 
message and multiple line message data sets desired 
by the user, 

1 ) OCRIN - defines the single line input message 
data set. 

2) QCROUT - defines the single line output 
message data set, 

3) MSGIN - defines input multiple line message 
data set, 

4) MSGOUT - defines the output multiple line data 
set, 

(V-31) 

d, A series of definitions for the various libraries 
must be made as to unit and volume, A default 
option for the name is provided for each. These 
macros cause the various data sets to be moved to 
the appropriate volume. The XXXLIB macros are all 
of the same format with the exception of MACLIB 
which has a COPY. The COPY allows the entire macro 
library to be copied or only the macros required 
for PSB or DBD to be copied, 

^.-^ e. IMSGEN - Specifies the data sets, volumes, and I/O 

(^ devices required for the definition process, 
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1) UT1SDS - names a utility to be used during 
Stage 2 by the assembler and linkage editor, 

2) ASMPRT - specifies whether assembly listings 
will be produced for the module assembled 
during system definition. 

3) LEPRT - the linkage editor print options LIST, 
MAP, and XREF. XREF includes MAP. 

(V-32) 

(V-33) 

f, APPLCTN - Describes the program resource 
requirements for application programs which will 
run under control of the IMS/36 Type region. 

1 ) PSB - specifies the logical name of the 
program specification block as generated using 
the IMS/360 PSB generation utility. 

2) PGMTYPE - specifies message processing region 
or batch. 

g. DATABASE - Defines all data bases to be used by the 
preceding APPLCTN macro. 

1 ) DBD - logical name of the data base as 
generated by the DBD generation utility. 

2) INTENT - specifies whether the program is 
read-only, update, or sole use to the 
exclusion of all other applications which may 
use the same data base. 

3) LOG - the logging of all segments, added, 
deleted, or replaced in the data base will 
allow data base "backout". 

h. TRANSACT - Specifies the transaction codes which 
will cause the program named in the APPLCTN macro 
to be scheduled. 

1) CODE - specifies the transaction code. 

2) PRTY - specifies the priorities at which this 
transaction code contends for IMS/360 
resources with other transaction codes. 
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a) Normal and limit priorities may range 
from through 14, 

b) The limit count may range from 1 through 
65535. 

c) Default values for normal, limit, and 
limit count are 1,1,65535. 

3) MSGTYPE - Specifies v/hen a message is 
considered complete. That is, whether it is 
single line or multiple line. 

a) SNGLSEG - Single line input 

b) MULTSEG - Multiple line input 

c) NONRESPONSE - Accept further input 
without waiting to respond to the message 
previously entered. 

d) RESPONSE - upon completion of an input 
message, no further input from the line 
and terminal is accepted until the 
response to the input is sent. (One in - 
one out.) 

4) PROCLIM - Specifies the maximum number of 
seconds allowed for processing each message 
and the maximum number of messages to be 
processed upon each loading of the program. 
Default values are 65535, and 65535. 

5) INQUIRY - If the operand is NO, data base 
recovery reprocesses all messages entered 
against this transaction code and no activity 
is allowed against this transaction during 
DBDump . 

If the operand is YES, data base recovery does 
not reprocess messages against the transaction 
code and input is allowed against this 
transaction code. 

(V-34) 

(V-35) 

i. LINEGRP - Defines the beginning of a set of 
physical terminals, communication lines, and 
logical terminal definitions. 



a. 6. 19 



1 ) DDNAME - specifies the ddname which is used to 
allocate the coiranunication line devices 
described in the following LINE and TERMINAL 
macros. 

2) FEAT - specifies features concerning the line 
group . 

3) UNITYPE - specifies the unit number. 

(V-36) 

j . LINE - Defines the beginning of a set of TERMINAL 
and NAME macro-instructions which describe the 
physical and logical terminals on a single 
communications line. 

1 ) FEAT - Describes the features on the terminals 
which are attached to this line. 

2) ADDR - Address of the communication line 

3) ZONE - specifies the WATS area zone to be 
associated with this line. 

k. TERMINAL - Describes a physical terminal v/hich must 
be an input device. It may in addition be an 
output device. 

ADDR - specifies the physical terminal address 

1. NAME - defines a logical terminal name to be 
associated v/ith the physical terminal described by 
a preceding TERMINAL or SUBPOOL macro. At least 
one must follow TERMINAL or SUBPOOL. 

m. MASTTERM - Identifies the master terminal. Only 
one of these is allowed for each IMS/360 
generation, 

(V-37) 

n. POOL - Describes a tdooI of logical term.inals which 
are to be associated with a set of switched 
communication lines. 

1 ) ZONE - specifies the WATS area zone associated 
with these logical terminals. 

2) FEAT - specifies the POOL of logical terminals 
to be associated with those physical lines 
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defined by the LINE macro with the equivalent 
FEAT operands. 

o. SUBPOOL - delimits a set of logical terminals to be 
associated with a given physical terminal. At 
least one for each POOL macro. 

1) TELNO - specifies the telephone number for 
AUTOCALL operations. 

2) Iterm name - a logical terminal name of one to 
eight alphameric characters must be unique. 

(V-38) 

(V-39) 

6. The output from Stage 1 consists of a series of job 
steps. These job steps can be logically divided into 
six groups. 

E, Security Maintenance 

(V-40) 

The security maintenance program is a utility program which 
is run after IMS/360 generation if security is desired in the 
system. 

1 . The security maintenance program accepts control 
statements and data statements and produces two matrices, 
which are used for terminal and password security. 

(V-41) 

a. Password security may be specified for transaction 
codes, terminal command verbs, nroarams, data 
bases, logical terminals, and physical terminals. 

b. Terminal security may be specified for transaction 
codes and commands. 

2. The security can become effective on the next restart. 
The master terminal operator may specify this with the 
restart command (TEPvMINAL and/or PASSWORD) . 

3. The security maintenance program is not executable 
unless an IMS/360 system definition has been performed. 

^-^ The Security Maintenance Program (SMP) requires the 

Q_J) IMS/360 System Definition Block (SDB) as input. 
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Input cards to the SMP are control statements or data 
statements. 

a. Control statements contain a right parenthesis, ) , 
and left parenthesis (, in positions 1 and 2; 
position 3 is blank followed by the control word. 

b. Data statements contain a blank in the first 
position, 

c. The valid comiDinations of control and data 
statements are shown here. 

1 ) A password may begin with any alphanumeric 
character. 

2) Passwords are one to eight characters in 
length. 

d. Only the first three characters of the operation 
code of control or data statements are necessary to 
identify the statements. 

e. Physical terminal numbers may be found in the 
terminal map printed at the end of Stage 1 of 
IMS/360 system definition. 

\ 
Security maintenance is discussed in two parts. The 
first covers passv/ord security and the second covers 
terminal security. 

(V-43) 

a. Password security may be expressed as a password 
profile or a resource profile. The results are the 
same. 

1 ) The first part of this example shoves a 
password profile. The password SAMSMITH gives 
access to the resources which follow. 

2) The second part shows a resource profile. 
These resources require these passwords. 

3) The results of these tv/o series of statements 
would be identical. The tv/o methods simply 
offer two ways of looking at the problem. 
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(V-4 4) 

b. This shows a different v/ay of looking at the 
profiles. In the vertical here, we see a password 
profile. 

If turned horizontially (turn) , V7e see a resource 
profile. 

(V-45) 

c. The actual implementation can be seen here. Each 
resource is assigned a row of matrix and each 
column is assigned a password. 

Here we see that transaction code PAYREC requires 
the password SAMSMITH. 

Terminal security is provided for the command language 
and transaction codes. Terminals may be limited as to 
which commands and transaction codes they may enter. 

(V-4 6) 

a. Terminal security may be expressed as a transaction 
and command profile or as a terminal profile. 

1 ) The first part of the example shows a 
transaction and command profile. The second 
part shows a terminal profile. 



2) Results of the two are identical. 
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b. The vertical here shows a terminal profile. 
Terminal DEPT 40 can enter transaction codes 
PAYROLL and PERS . 

c. The horizontal (turn) , shows a transaction and 
command profile (no commands are present) • 
INVENTORY may be entered from logical terminals 
S274001, S274002, and S274003. 

(V-48) 

This shows the implementation of the terminal matrix. 
Each transaction code and command which is secured is 
assigned a row in the matrix. Each logical terminal 
included in security is assigned a column. 
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In the example shown, TRAN2 could be entered from 
logical terminal CNTA and CNTD. 

(V-49) 

8, The security maintenance run is a three-step job. 

a. Step 1 edits the control and data cards for the 
security maintenance program. The cards are 
checked for validity against the system being 
maintained. 

(V-50) 

b. Step 2 is an assembly. 

c. Step 3 is a linkage edit which places four 
sequential members in IMS.RESLIB. 

1 ) Communication Password Table and Matrix 

2) Communication Terminal Matrix 

3) Communication Password List 

4) Communication Terminal List 

d. Only those members affected are changed when the 
security maintenance program is run. For example, 
the communication terminal and the communication 
terminal list can be generated or altered without 
affecting the communication passv/ord table and 
matrix and the communication password list. 

e. A listing is provided of the created maintenance 
tables. 

9. JCL required to run the security maintenance program 
can be found in the IMS/360 Systems Operation Manual. 

(V-51) 

F. Co.^mand Language Facilities 

The command language is divided into two groups for the 
purpose of presentation — master terminal commands and 
remote terminal commands. A different division may be 
selected by each installation at IMS/360 system definition 
time. 
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1 . Any command message entered results in a completion 
message going to the originating terminal and affected 
terminals; error messages go only to the originating 
terminal . 

2. Certain command type messages which interrogate, alter, 
and control the overall system should be restricted to 
entryzfrom the master terminal. 

3. Passv;ords may be required for commands. This is 
specified when the security maintenance program is run. 

(V-52) 

4. The format of the command is simple and relatively free 
form. 

a. The first character is a slash (/) . 

b. The slash is followed by the command verb. 

c. If required, the password follov/s the verb and is 
enclosed in parentheses. The command and the 
password left parenthesis may be separated by one 
or more blanks, 

d. Following the password or command may be a list of 
key words and parameters. 

e. Although much freedom is allowed V7hen inputtincr the 
command, the following rules apply: 

1 ) The password is enclosed in parentheses 
(bypass and restore characters may be 
substituted on the 1050). 

2) Delimiters are space, dash, or equal sign. 

3) A series of parameters is separated with 
commas . 

4) A period is not required, but if present, it 
designates the end of the command. 

- 5) Any characters following the period are 
treated as a comment. 

(V-53) 

6) Key v;ords are used with commands. A partial 
list is shown here. A complete list is 
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available in the IMS/360 Machine Operations 
Manual . 

a) LINE - a communication line; one to three 
character numeric . line numbers, 

b) PTERM - A physical terminal; one or two 
character physical terminal address 

c) LTERM - A logical terminal; one to eight 
character alphameric logical terminal 
address 

d) TRAN or TRANS - a transaction code; one 
to eight alphameric characters. 

e) PROG - PROGRAM or PGM - a program; one to 
eight alphameric character program name 

f) DATABASE - a data base; one to eight 
alphameric character data base names. 

g) PASSWORD or PSWD - a password; passwords 
as designated at system definition time. 

h) ALL - may be used with many key words. 
Acceptable uses are explained with the 
individual commands 

i) CPRI - current priority; one or two 
character numeric priorities between 
and 14, inclusive 

j) LPRI - limit priority; one or tvjo 
character numeric priorities from to 
14, inclusive. 

k) LMCT - limit count of a transaction code; 
values range from to 32,000. 

1) TERMINAL or TERM or TER - a terminal when 
deleting terminal security. 

m) REGION or REG or MSGREG - refers to a 
message region. 

n) Certain key words are limited to use with 

the checkpoint/restart commands and the 

display command. They are discussed with 
these specific commands. 
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o) Certain words are considered null if used 
in a command. These are FOR, SECURITY, 
TO, ON, MODE, and AFTER. 

5. Master Terminal Commands 

Certain commands are restricted to the master terminal 
by IMSGEN. Others may be restricted through the 
security maintenance program. 

(V-5 4) 

a. /CHANGE - changes one password to another. In the 
example shown, ABCD must be present in the password 
table and the addition of EFGH must not create a 
duplicate entry in the nassword table (discussed 
under security) . 

b. /ASSIGN - can be used for the reassignment of a 
logical terminal relative to input and/or output. 

A logical terminal that is to be assigned must be 
stopped unless the logical terminal is the master 
logical terminal. 

This command is also used to change current 
priority, normal priority, limit priority, or limit 
count for an SMB. 

(V-55) 

c. /DELETE - used to eliminate password security for a 
transaction code, physical terminal, logical 
terminal, program, or data base. It can also be 
used to delete terminal security for one or more 
SMBs. 

(V-56) 

d. /DISPLAY - displays the status of the system 
relative +-o requested information. 

1 ) STATUS - causes the displaying of transaction 
codes and their status relative to inputtina, 
scheduling, locked or unlocked, or locked 
specifically for DBDUMP. 

The status of data bases, programs, lines, 
physical terminals, and logical terminals is 
also displayed. 
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2) ACTIVE - displays the active program in Type 1 
and Type 2 regions and the transaction code 
for which they were loaded. 

3) QUEUE - displays the message queue according 
to priority, transaction type, and message 
count. If used with PRIORITY transaction code 
names for that priority v/ill be displayed. 

4) TRAN - displays data for the transaction 
code(s) specified. 

5) PGM - displays data for the program (s) 
specified. 

6) DATABASE - displays data for the data base(s) 
specified. 

7) LINE - displays data for the specified line. 
For a further breakdov/n PTEPJVl may be used. 

8) LTERM - displays data concerning the logical 
terminal name(s). 

9) ASSIGNMENT LTERM - displays which input and 
output communication line and physical 
terminal address are assigned to each LTEPM. 
LINE and PTERM may be used instead of LTEP^l. 

10) MASTER - displays the logical terminal name, 
physical terminal address, and line number 
assigned as the master terminal. 

(V-57) 

e. /PSTOP, /PURGE, and /STOP are used to temporarily 
stop various system resources such as lines, 
terminals, transaction codes, programs, and data 
bases. 

(V-58) 

The action taken with each command and its key v7ord 
are shown in chart form. The numbers under each 
key word refer to the action taken. 

f. /START is used to start various system resources 
initially or after a /PSTOP, /PURGE, or /STOP. 

Remote Terminal Commands - These are used by the remote 
. terminal operator to control his own resources. These 
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include those allowed by system definition and not 
restricted by running the security maintenance procrram. 

(V-5 9) 

a. /BROADCAST - used to transmit a message to one or 
more terminals. 

1 ) This is an exception to the rule that all 
command messages are one line in lenath. 

2) The command is entered as one line and the 
message is entered on a separate line. 

(V-60) 

b. /TEST - Places the user's terminal in a test mode 
such that any input messages that are entered into 
the user's terminal will be turned around and 
transmitted back to the user's terminal, Messaaes 
from outside sources will not be transmitted to a 
terminal that is in test mode. 

c. /EXCLUSIVE - This command is used to place the 
C J user's own terminal into exclusive or inquiry mode. 

In this mode, no output will be sent to the 
terminal which is not in response to an inquiry 
from that terminal . 

d. /END - this command is used for ending the 
/EXCLUSIVE or /TEST mode. 

e. /LOG - causes the entire line to be written on the 
log tape. 

f . /CANCEL -zcauses the cancellation of an entire 
input message regardless of the number of lines. 

This is the only command that can be entered as 
other than the first line of a message, 

(V-61) 

g. /LOCK and /UNLOCK - used to control various 
facilities of IMS, /LOCK is functionally similar 
to /PSTOP. /LOCK is explained here. 
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1 ) PTERM - applies to the physical terminal into 
which the command is entered. This causes the 
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physical terminal to be locked. No command 
except /UNLOCK will be accepted. 

2) LTERM - a logical terminal or a series of 
logical terminals which are associated with 
the physical terminal from which the command 
is entered. Parameters can be one or more 
names or ALL; parameters apply to user's own, 
only; cannot use ALL with /UNLOCK. 

3) TRAN - do not schedule this transaction code. 

4) PROGRAM - do not schedule this program. 

5) DATABASE - do not schedule any program that 
uses this data base. 

(V-62) 

h. /JAM - this is, the first acceptable command from a 
dial-up terminal . 

1) Logical terminal Pi is associated with the 
physical terminal. 

2) PTERM - LTERM - causes the attachment of all 
logical terminal in which P1 exists. 

i. /RDISPLAY - displays the logical terminal name, the 
physical terminal address, and the line number 
assigned as the master terminal. This is useful in 
determining the name of the master terminal to be 
used when broadcasting a message. 

j . /SET - sets the destination of all messages entered 
into this terminal to another terminal or to an 
SMB. 

This mode may be reset by the /RESET, /START LINE 
for the terminal or by the /lAM command. 

k. /RESET - eliminates the existing destination mode. 

G, Checkpoint, Restart, Data Base Dump, and Recovery 

1 . The checkpoint facilities of the IMS/360 control program 
provide the means for periodically recording control 
information and status to enable IMS/360 restart after 
failure. 
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2. The checkpoint facility provides for orderly shutdov/n. 

(V-63) 

3. There are four checkpoint commands, two data base dump 
commands, two restart commands, and a data base recovery 
command • 

(V-64) 

a. The checkpoint command, /CHECKPOINT vzith no 
operands, causes a sim.ple checkpoint, 

1) It may be invoked from the master terminal. 

2) It may be taken automatically based on the 
number of log entries. 

(V-65) 

b. The simple checkpoint logs the status of all 
dynamically changing IMS/360 control program 
blocks. 

Cj c. Scheduling of programs into message regions is 

stopped while the checkpoint is taken. Other 
functions are not interrupted. 

d. The three remaining checkpoint commands are each 
used to orderly terminate the IMS/36 system. 

Each is invoked from the master terminal. 

(V-64) 

e. The /CHECKPOINT FREEZE is the fastest means of 
orderly termination. 

1 ) Input communications lines are terminated as 
soon as any messages being entered are 
completely received. 

2) Output communications lines are terminated as 
soon as any messages being sent are completely 
transmitted, 

3) Message regions are terminated as soon as the 
current messages being processed have been 
completed. 
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4) All remaining input messages to be processed 
and all output messages remaining to be 
transmitted are retained in the message queue 
data sets. 

5) Control blocks are logged. 

6) The /NRESTART command is used to restart the 
system, 

7) If ABDUMP is included a SYSDUMP of the IMS/360 
Type region will be provided. 

f. The /CHECKPOINT DUMPQ operates exactly as the 
/CHECKPOINT FREEZE but, in addition, all input and 
output messages in the queues are dumped to the log 
tape . 

The /NRESTART with message queue reconstruction is 
used to restart IMS/360 after a /CHECKPOINT DUMPO. 

g. The /CHECKPOINT PURGE command is the most orderly 
and time-consuming. 

1 ) Input communication lines are terminated as f 
soon as messages being entered are completely 
received. 

2) All messages in the input queue are processed. 

3) All output messages are transmitted to their 
specified destinations. 

4) The message regions are terminated. 

5) Input and output messages which could not be 
processed are dumped to the log tape, 

6) IMS/360 control program job is terminated. 

7) The /NRESTART with message queue 
reconstruction is used to restart. 

(V-66) 

8) The order of action durinci shutdov/n checkpoint 
is shown here. 

The data base dump capabilities of checkpoint include 
the functions of creating a dumped tape image of a 
complete data base. 
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It also performs preparatory functions for the 
reconstruction of a data base. 

(V-6U) 

a. The /DBDUMP command is entered from the master 
terminal. 

1 ) All transaction input of an update nature 
against the data base is stopped. 

2) Transactions already in the queue against the 
data base are processed. 

3) A special checkpoint request is issued. This 
takes a checkpoint and then forces an end-of- 
volume on the system log. 

4) A special utility is scheduled for execution 
in a message processing region, 

5) The utility program issues GETs against the 
data base and ISRTs to an HSAM tape. 

() 6) At the completion of the data base dump, the 



^^' 
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tape is unloaded. 

7) Update transactions are allowed to come in 
from terminals. 

b. The /DBDUMP STOP is used in preparatory procedures 
prior to data base' reconstruction. 

1 ) Transactions against the data base are not 
scheduled for processing. 

2) The data base is reconstructed v/ith a batch 
program executed from an IMS/360 Type 3 
region. 

3) After reconstruction, all transactions on all 
log tapes since the last data base dump must 
be reprocessed. 

The restart facilities provide for recovery of IMS/360, 
its message queues, and the data bases. 

a. Normal restart has two basic versions. 

1 ) Cold start 
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2) Restart after normal shutdown 

Checkpoint number, Julian date, and time of 
dayz 

3) FORMAT ALL 

4 ) BLDQ 

b. Emergency restart is used to restart after a system 
failure. 

1) In order to recover after a loss of core, the 
/ERESTART command is issued with the 
checkpoint number of the last checkpoint prior 
to failure and the tape serial number. 

a) IMS/360 control blocks are restored from 
the checkpoint data. 

b) The log tape is processed forward from 
the checkpoint to the point of failure. 

This process allows checkpoint/restart to ^.^ 
determine the message processing programs C 
which were active at the time of failure 
so that they may be rescheduled. 

2) If message queues as well as core are lost, it 
is necessary to rebuild the message queues. 

a) The FORMAT ALL parameter on the /ERESTART 
command causes the message queues to be 
reformatted. 

b) The BLDQ causes the message queues to be 
rebuilt. 

c) In order to restart with BLDQ or FORMAT 
ALL, it is necessary to back up to the 
last cold start or the' last /CHECKPOINT 
with PURGE or DUMPO. 

The message queues are rebuilt by 
starting with the queues as they V7ere 
dumped and then processing forward on , the 
log tape. 

Messages are queued and dequeued as a 
result of the log entries up to the point 
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of failure. The message queues are 
totally rebuilt at that point. 

Data base backout may be required as a 
result of a failure. 



O 



If data base logging has been requested 
against a data base, all changes to the 
data base are written on the log tape. 

When recovering, if a program was 
executing against a data base and changes 
were being logged, then all changes which 
resulted after that program was loaded 
will be backed out. 

e) Data base recovery can be performed if a 
data base has been previously dumped and 
update activity against the data base has 
been logged. 

The first action is to stop all activity 
against the data base with /DBDUMP 
command with the STOP operand. 

The next action is to restore the data 
base from the last dumped copy. This is 
done with a batch program, in a Type 3 
region. 

The /DBRECOVERY command with the data 
base names and the serial numbers of the 
log tapes is used to initiate processing 
of the log tapes against the data base. 

All transactions of an update nature are 
reprocessed. Messages which result from 
the processing may be resent to the 
originating terminal if this option is 
specified v/ith the /DBRECOVERY command. 



H. System Log 
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The JCL necessary to make the statistical run can be found in the 
Systems Operation Manual - Volume 1, Chapter 4. Examples of 
statistical reports can be found in Chapter 5. 
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(V-67) 

The system recorder is a service routine designed to write 
data on the system log. 

1 . Information is written on the log tape for restart. 

a. Message enqueue blocks — when they change 

b. Checkpoint data — when a checkpoint is taken 

c. Record indicating data management open or close — 
when an IMS/360 data set is opened or closed 

d. Changes to a data base. 

2. Information can be written for restart and statistics 

a. Message received from terminal — when a message is 
completely received or when the disk block is full. 

b. Message sent to a terminal or another program — 
when the message is complete or when the disk block 
is full„ 

3. Information may be written for statistics only 

a. Error segments — when a hardware error is detected 
while receiving or sending to a terminal. 

b. At the completion of a send record — at completion 
of sending a message to a terminal. 

c. Application accounting record — when application 
program terminates. 

d. IMS/360 accounting record — when the system is 
started or stopped. 

(V-6 8) 

4. Records are written on the ,log tape using QSAM variable 
length blocked records. 

a. LL represents the total length. 

b. BB is a half word used by OS/360. 

c. FLAG is a one byte field identifying the log entry 
type. 
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d. RECORD is the variable length portion. 

e. The logical record consists of FLAG and RECORD. 

(V-69) 

f. There are seven different types of records which 
are used for statistics and accounting. 

1 ) The basic information in the records is 
similar. 

2) The format for a log entry for an input 
message, output message, statistics, and 
errors is shown here. 

The variable information contains such things 
as the transaction code and text of a message 
or response. 

(V-70) 

3) The application accounting log record contains 
information about an application program and 
is written each time a program terminates. 

g. No processing is performed by the logging routine. 

5. The IMSO procedure includes DD cards for old and new log 
data set allocations. 

a. The old log DD card name is LOGDCBR. 

b. The new log DD card name is LOGDCB. 

(V-71) 

6. System flow of statistics utilities 

a. Edit pass 1 edits the prefix of each log entry to 
ensure that when the log tape is sorted related 
input and output messages are contiguous. 

b. Edit pass 2 explodes the system log entries and 
produces records to be used to produce statistical 
reports. 

(V-72) 
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statistical reports provide a means of evaluating line 
and terminal loading, traffic volumes, response times, 
and accounting (billing) infonnation. 

(V-73) 

a. Messages queued but not sent — by transaction 
code, 

b. Messages queued but not sent by terminal. Format 
is the same as by transaction code. 

(V-74) 

c. Line and terminal report — shows loading by time 
of day 

d. Error reports — for terminals. Format is the same 
as the line and terminal report. 

(V-75) 

e. Transaction report — loading by transaction code 
by time of day. 

(V-76) 

f . Transaction response report — measures time from 
complete receipt of input message until response 
starts back to terminal. 

(V-77) 

g. Application accounting report — provides 
sufficient data to allow machine charges to be 
distributed to terminal users 

1 ) Counts of all requests to Data Language/I 

2) Amount of CPU task time 

3) Number of bad completion codes by program 

4) Average CPU time processing 

(V-78) 

h. IMS/360 accounting report — shows amount of CPU 

time used by IMS/360 region. (Task time does not ^-^ 
include V7ait time.) \^_^: 
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(V-79) 

8. The message select and display program selects messages 
based on control cards. 

a. Control cards begin in column 1 v/ith an identifying 
key word. 

b. Following the key word is a series of parameters 
enclosed v/ithin parentheses and separated by 
commas. 

c. Control cards cannot be continued beyond column 71. 

d. Multiple control cards with the same key vrord are 
permitted. 

e. Within parentheses, all parameters are positional. 
Missing parameters must be indicated by commas. 

f . A group of names may be selected by terminating the 
parameter with an *. Example: INV* selects INV, 
INVENTORY, INVA, and INVB. 

g. The name parameter ALL may be used to select all 
names rather than a specific name. 

9. There are five types of control cards. 

a. Transaction code 

b. Symbolic terminal name 

c. Hardware terminal address 

d. Time control card 

e. Nonprintable character control card 

(V-80) 

10. The sort of the log tape may be by date. If sorted by 
date, reports are provided by date. If sorted by 
period, reports are produced by period. 

SORT FIELD = (5, 1 ,CH,A, 9, 4 ,PD,A, 1 3 , 36 ,CH,A) 

or without date 

SORT FIELD = (5 , 1 ,CH,A, 1 3, 36 ,CH,A) 
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11. A line count parameter LINECOUNT=XX may be included in 
the execute card. This controls the number of lines per 
page, and, if not included, default is 36. 

Message Queue Space Allocation 

1 . All messages (transactions) coming into the system are 
queued on direct access storage devices, 

a. Messages may be received from communication 
terminals or application programs. 

b. Messages may be destined for communication 
terminals or application programs. 

(V-81) 

c. All transactions of the same type are queued in a 
serial chain based upon time of receipt. 

d. Messages destined for a particular communications 
logical terminal are queued serially by message 
class. There are four logical classes: 

1) Response Messages (Reply from Response SMB) 

2) Replies for an Exclusive terminal 

3) System Messages 

4) Other traffic (Message switches etc) 

5) Although the classes are logically separate, 
the messages are queued physically (on disk) 
in two separate strings by manipulating the 
queue pointers as necessary to maintain their 
relative priorities. 

2. Messages may be single line or multiple line. 

a. Single line messages are normally maintained in a 
QCR (Queue Control Record) . 

b. Multiple line messages are normally maintained in 
one or more message buffer records which have been 
queued to the QCR controlling the message. 

c. Small multiple line messages will be wholly 
contained within QCR if the text length is less 
than the available text capacity of the QCR. 
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From two to four data sets may be used to store 
messages. At least one QCR data set must be available 
for message queuing, and one message buffer data set 
must be available to allow for messages which may exceed 
the capacity of a QCR, 

(V-8 2) 

a. If two data sets are used, the OCR data set is used 
for both input and output single line messages and 
for the control of both input and output multiple 
line messages. The Message Buffer data set is used 
for both input and output text which cannot be 
contained in a QCR, 

(V-83) 

b. Three data sets may be used, A common Message 
Buffer data set is shown with separate QCR data 
sets. Possible use is when very little multiple 
line input is expected with a large percentage of 
multiple line output, 

(V-84) 

c. Four data sets are normally used because this 
allocation provides the least contention between 
input and output messages. 

Message queues are OSAM data sets. 

Message queue data sets must be preformatted before 
initial usage, 

a. Use of Preformatted queues provides increased 
performance and reliability, 

1 ) Performance is increased by preassigning 
direct access storage records for any chain of 
messages. This reduces the input/output 
operations required for queue management, 

2) Reliability is increased as record X is not 
relied upon to write record X + 1 , 

b. Messages are written^ sequentially from the 
beginning of the data set to the end, 

1 ) Space is reused after the entire data set is 
written. 
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2) Restart after a PURGE or DUMP queue causes the 
allocation of queue space to be reinitialized 
to the beginning of the queue data sets. 

(V-85) 

5, Actual space allocation is best explained by example, 

a. Space required depends upon: 

1) How many data sets are used (2 or 4). 

2) How many messages are received from and sent 
to terminals. 

3) The length of the messages received from or 
sent to terminals. 

b. The calculation for the example shown assumes four 
data sets of a 2314. 

c. The computation shown is an outside limit, as no 
reuse of space has been considered, 

(V-86) 

d. Reuse of space can significantly decrease the space 
allocation required for message queues. 

1 ) Message turnover rate and number of 
transactions and logical terminals must be 
considered. 

2) Message buffer records can only be reached 
through QCR records; therefore, allocation 
should be such that QCR data sets are reused 
before message buffer data sets. 

(V-87) 

3) Reuse of space adds a significant amount of 
disk I/O time to writina message queues 

(112.7%). 

a) To search for each QCR string requires 
time. 

b) QCR must be read to follow backward chain 
when reassiqnina the QCR. 
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c) Message buffer strings must be obtained 
from QCRs and linked together. 

d) Message buffer record must be read to 
follow backward chain when reassigning 
the message buffer, 

J, Estimating DASD Space for Data Bases 

1 . IMS/360 uses the OS/360 convention in space allocation 
for direct access storage devices. 

a.. The amount of space can b? specified in terms of 
blocks, tracks, or cylinders. 

b. If device independence is desired, space should be 
specified in blocks. 

c. ISAM data sets must be allocated by cylinder. 

d. Allocating space for an IMS/360 Data Base v/hich 
uses ISAM and OSAM data set. 

1) OS/360 ISAM has three areas - index, prime, 
and overflow. 

2) IMS/360 *s HISAM Data Base has three areas - 
index, prime, and OSAM overflow. 

2. In generating a data base description, the logical 
record size and blocking factor may be computed by the 
generation utility or it may be overridden on the DMAM 
card with LRECL and BLKFACT specifications. 

a. LRECL (logical record size) and BLKFACT (blocking 
factor) may be specified on the OMAN card. 

b. When LRECL isz computed by the DBD generation 
utility, it considers the device and rounds to the 
next higher 1/4 track, 1/3 track, or 1/2 track. 

(V-88) 

3. Data Base allocation is best explained by an example. 

a. Assume a data base in which 50% of the logical 
records are 300 bytes or less; 70JS (includes the 
50%) are 400 bytes or less; 90% (includes the 70%) 
are 900 bytes or less in length; 100% (includes the 
90%) are 1200 bytes or less in length. 
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b. Wi^th fixed length ISAM it is necessary to establish 
a fixed value for the logical record length 
(LRECL) . 

c. In the example given, an LRECL of 1200 bytes would 
accommodate the data base record but 90% of the 
records would have at least 300 bytes of slack 
whereas 10% of the records would have at least 800 
bytes of slack, 

d. If an LRECL of less than 1200 bytes is selected, it 
will not accommodate all of the data base records. 
Some dependent segments will be placed in OSAM. 

e. In determining the best balance between ISAM and 
OSAM, a number of points must be considered. 

1 ) Access to records completely contained in the 
prime area is faster than accessing data in 
two areas. 

2) OSAM space can be used to hold overflow 
segments from any logical record. Slack in 
the prime is tied to a specific root. 

3) Another consideration is that records in the 
prime area are blocked while records in OSAM 
are unblocked. With small data base records, 
this can make a significant difference. 

4) Are the longer data base records accessed more 
or less often than the shorter data base 
records? If longer records are accessed more 
often, it may be best to have them in the 
prime area rather than in OSISM, 

(V-89) 

A data base record size is computed by the DBD 
generation utility using the segment sizes and 
frequency, 

a. The calculation for a data base record length is 
shown by example. 

b. The calculation is shown with a letter above the 
calculation identifying specific segments, 

c. If one desired, he could specify the size of the 
LRECL on the OMAN card. 
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5. Once the LRECL is established, the blocking factor must 
be computed. 

a. The LRECL is always 1/2 track or less. If the 
computed LRECL is greater than 1/2 track, then 1/2 
track LRECL will be used. 

b. The blocking will be 1/2, 1/4, or 1/3 track - 
whichever accoiraror'-ites the most logical records. 
This is computed by the DBD generation utility. 

(V-90) 

6. If, in the example, we assume 1/2 track blocks on a 
2314, six LRECLs would be placed on each track. 

a. The table shows that our LRECL of 909 falls in the 
870-1158 range, which gives us three records per 
block. 

b. A 2314 track is shown beneath the chart. We have 
two blocks of three records each or six records per 
track. 

7« Our next step is to estimate the number of roots in the 
data base. Let us assume 20,000 parts or 20,000 logical 
records. 

a. We are now ready to calculate the prime area 
required for the data base. 

b. Our records are blocked 6 per track and there are 
19 tracks per cylinder, excluding track indexes. 
Thus we get 114 logical data base records per 
cylinder. Our requirements are approximately 176 
cylinders of a 2314 pack. 

8. In order to estimate the OSAM space required, one must 
allow space for initial loading plus space for adding 
new segments of information. 

a. In order to determine what is required in initial 
loading in our example, we must know something of 
the unaccounted for ^0% in GENIMFO, STOKSTAT, and 
BACKORDR segments (only 90% were less than the 
frequency used - the other ^0% had a greater 
occurrence) . 

b. Our calculated LRECL of 909 would have accommodated 
90% of the records in our data base but vie were 

(^~^) given an LRECL of 1158. 
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c. with an LRECL of 1158 we would have very little 
loaded into OSAM, since none of our records are 
over 1200 bytes long, 

9. This example has been given to show the approach in 
analyzing a data base's space requirements and should 
not be looked at as an absolute approach to the problem. 

10. Space for the ISAM index is as required by OS/360 Data 
Management. 



INSTRUCTORS* NOTE: 

No simple answer or explanation can be given as to core 
requirements for IMS/360. The requirement can vary over a wide 
range and result from the equipment to be supported and the 
IMS/360 option specified. The information presented here should 
be used for guide lines and not as absolute requirements. 

K. Estimating Core Storage Requirements for IMS/360 

1 . The IMS/360 control program region can vary in size as a 
result of the number of lines, terminals, programs, 
transaction types, and data bases, and the placing of 
certain program modules in OS/360 link pack instead of 
the IMS/360 control program region. 

(V-91) 

2. The basic requirements are presented in chart form. All 
modules shown other than the IMS resident nucleus may be 
placed in link pack. 

(V-92) 

In addition to these basic requirements, space must be 
provided for control blocks, buffers, and BTAM device 
modules. 

3. The BTAM device modules vary in size depending on the 
terminal and features to be supported. 

(V-93) 

U. Control blocks are required for communication lines, 
terminals, transaction types, message processing 
programs, and open data bases. 
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5, Buffers are required for communication lines and data 
bases. 

(V-94) 

6. To estimate the total requirements for an IMS/360 
system, we must first define the environment in which 
the system is to run. Assumptions are shown in chart 
form. 

(V-95) 

a. The basic storage requirements consist of 60,000 
bytes for the IMS/360 nucleus and 30,100 bytes of 
action modules and access modules. The 30,100 
bytes may be in OS/360 link pack. 

b. There are two line groups - one for 27U0s and one 
for 1050s. The requirements for the BTAM device 
support are shown. 

c. IMS/360 control block requirement are a function of 
the number of lines, terminals, transaction types, 
data bases, and programs. An estimate of 18,000 is 
used here. Some blocks included are 500 bytes for 
each line, 75 bytes for each terminal, and 60 bytes 
for each transaction type. 

d. One queue control record is required for each line 
(16 X 176) . 

e. This example assumes that about one-third of all 
messages coming in are multiple line, thus space is 
required to store the multiple segments (5 X 880) . 

f. It is assumed that output v/ill be going to 5 lines 
concurrently (5 X 500) . 

g. It is assumed that there are five open data bases 
each requiring buffer space of 3000 bytes. Since 
two regions may be concurrently resident, this 
requirement must be doubled (2 X 5 X 3000) • 

h. There are 10 program specification blocks 
concurrently resident. The typical size of a PSB 
is from 500 to 1,000 bytes. This requirement can 
vary significantly depending on the complexity of 
the data base and the specified sensitivity of the 
PSB. 
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i. The data management block required for each data 
base varies with the degree of complexity of the 
data base. The assumption here is that two require 
1,000 bytes while three require 500 bytes. 

j . The total estimate shown is based on the assumption 
of specific requirements. No generalization should 
be based on this figure. 

The MVT requirements exceed the MFT-II requirements as a 
result of the system queue space required and the 
additional requirements for system fetch work area and 
ABEND work area. This will vary from approximately 
3,000 bytes to 4,000 bytes. 
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e SEND TO TERMINAL 



4.6.60 



6-V-12 



COMMUNICATIONS CONTROL BLOCKS 



TERMINAL 



COMMUNICATIONS 
LINE 



o 



CLB 

(PHYSICAL 
LINE) 



CTB 

(PHYSICAL 
TERMINAL) 



CNT 

(LOGICAL 
TERMINAL) 



CTT 

(HARDWARE 
FEATURE) 



o 



it. 6. 61 



6-V-13 



COMMUNICATIONS CONTROL BLOCKS 



4r 






I 
< 

I 




POINTER TO ACTIVE 
CTB 




o 



o 



INPUT ON CTBl 



OUTPUT ON CTB2 










(OUTPUT) 




/ASSIGN LTERM CNTl TO LINE 2 PTERM CTBl PTERM CTB2 
(BOTH CTB'S ARE ON THE SAME LINE IN THIS EXAMPLE) 



en 
I 
< 

I 



QUEUING MESSAGES 



SMB 





SPT 


PRIORITY 15 




14 




13 




12 




r/ 1 1 




10 




9 




8 




7 




5 




5 




4 




3 




2 




/ 1 








V. 



MRQ 




HIGHEST 
PRIORITY 



LOWEST 
PRIORITY 



ECB 



't.6. 64 



6-V-16 



o 



o 



I 

h- 

Q_ 

CO 

I 

C3 
Oil 



ZZ) 
LU 
ZD 
C3 



o 




4.6. 6 5 



6-V-17 



SMB 





IRANI 




PROGZ 




• 
• 

• 




SPACE FOR NEXT MESSAGE 








LAST MESSAGE 






FIRST MESSAGE 












OCR 
















V 








QCR 








f 

f 








^ r\r^r\ 




te 






"" QCR 










1 


_t 

1 


1 
1 

1 



MESSAGE 
BUFFER 1 


V 


MESSAGE 
BUFFER 2 


V 


MESSAGE 
BUFFER 3 






4.6. 66 



6-V-l 



NON-SWITCHED PHYSICAL-LOGICAL RELATIONSHIP 



IMS/360 














r 






PHYSICAL 
TERMINAL 


- 




NON-SWITCHED 

CO WN I CATION LINE 


"*- 


1 
1 

1 


LOGICAL 
TER^ilNAL 














L 







o 



o 



4.6. 67 



6-V-19 



SWITCHED LINE RELATIONSHIP 



V... 



SIGNED-ON 
USER 



PHYSICAL 
TERMINAL 



LINE 



IMS/360 
1 1 



LOGICAL 
TERMINAL 



L 



4.6. 68 



6-V-20 



SWITCHED NETWORK 





c-H 


LINES 


IMS/360 










--' Vi/ ^-> 1 






USER 




PHYSICAL 
TERMINALS 




LOGICAL 
TERMINALS 




**i« 












^' L 







o 



-(N>- 



o 



^.6. 69 



6-V-21 



POOLS AND SUBPOOLS 









/ 

/ 
/ 

/ 


INQUIRY 
LOGICAL 
TERMINAL 1 


REMOTE 

TERMINAL 

USER 




PHYSICAL 
TERMINAL 


\ 


• 


INQUIRY 
LOGICAL 
TERfilNAL 2 










\ • 








INQUIRY 
LOGICAL 
TERlilNAL N 



\ 



\ 



\ 



-1 



IMS/360 

LOGICAL 
TERMINAL 
POOL #1 

[logFcal' 
! terminal 

j_SU_BPOO_L_j 

[lo'gIcal'] 

I TERMINAL j 
lSIJBPOO_L_J 



r LOGICAL "* 
TERMINAL 
POOL #2 



[LOGICAL j 

[terminal! 

iSUBPOOL I 



•logical"! 
1 terminal ! 
[suB_poqL_J 



't.6. 70 



6-V-22 



/I AM LTERM INQLOGl 



REMOTE 

INQUIRY 

USER 


■did 




PHYSICAL 
TERMINAL 











LINE 



IMS/360 



INQUIRY 
LOGICAL 
TERMINAL 
FOR LINE X 



/I AM LTERM LOGPOOQ 



REMOTE 

TERMINAL 

USER 



PHYSICAL 
TERMINAL 



IMS/360 




/I AM PTERM LTERM ABCX 











LINE r 


■^" — " ■■«■ m I «>■* ^-w aw 


" 


REMOTE 

TERMINAL 

USER 


-- 


PHYSICAL 
TERMINAL 




SUBPOOL 
OF 

LOGICAL 
TERMINALS 




1 

1 

1 
1 

























o 



^.6.71 



6-V-23 



IMS SWITCHED LINE GROUP 



COMMUNICATIONS BLOCKS 



SWITCHED LINES 



LINE 
CLE'S 



LINE 
CTB'S 



LINE 
CNT'S 




POOL 
CLE 



SUBPOOL CTB'S 




POOL 
CNT'S 



it . 6 . 7 2 



6-V-2it 



DIAL SIGN ON PROCEDURES 



o 



IRANI TEXT 
*SIGN ON REQUIRED 

lAM A 1050 
*SIGN ON REQUIRED 

lAM A SWITCHED NETWORK 1050 
*SIGN ON REQUIRED 

I AM NOT A 1050 
*SIGN ON REQUIRED 

HE IS 

*SYSTEM DISCONNECT 

/I AM LTERM MASTER 

*PTERIVLTERM IN USE, CANNOT PROCESS 

/I AM LOGTR TERMOl 

*REQUIRED KEYWORD NOT PRESENT 

/IAI»1 LTERl'l TRANTl 

*LTERM KEYWORD PARAMETER INVALID 



4.6.73 6-V-25 




^.6.7^ 



6-V-26 



o 



o 



CHANGES 



SECURITY MAINT, 



r 



PSBGENS 



DBDGENS 



APPL. PROGS. 



IMS GENERATION Fl OW 



STAGE 1 
MACROS 



IMS GEN 
STAGE 1 



X 



STAGE 2 
JOB STREAM 



IMS GEN 
STAGE 2 



IMS/360 



± 



IMS/360 



STAGE 1 
LISTINI 



"♦.6.75 



6-V-27 



SYSTEM DEFINITION MACROS 



MACRO 
INSTRUCTION 


TYPE OF DEFINITION 


COMPLETE SYSTei 


BATCH TYPE 3 


p'lSCTRL 
MSGQUEUE 
MACLIB 
RESLIB 
PGMLIB 
PSBLIB 
DBDLIB 
PRCCLIB 
IMSGEN 
APPLCTN 
DATABASE 
TRANSACT 
LINEGRP 
LINE 

TERMINAL 
NAME 

MASTTERM 
POOL 
SUBPOOL 


REQUIRED 1 
REQUIRED 1 
OPTIONAL 1 
OPTIONAL 1 
OPTIONAL 1 
OPTIONAL 1 
OPTIONAL 1 
OPTIONAL 1 
REQUIRED 1 
REQUIRED N 
REQUIRED N 
REQUIRED N 
REQUIRED N 
REQUIRED N 
REQUIRED N 
REQUIRED N 
REQUIRED 1 
OPTIONAL N 
OPTIONAL N 


REQUIRED 1 
NOT ALLOWED 
OPTIONAL I 
OPTIONAL 1 
OPTIONAL 1 
OPTIONAL 1 
OPTIONAL 1 
OPTIONAL 1 
REQUIRED 1 
NOT ALLOWED 
NOT ALLOWED 
NOT ALLOWED 
NOT ALLOWED 
NOT ALLOWED 
NOT ALLOWED 
NOT ALLOWED 
NOT ALLOWED 
NOT ALLOWED 
NOT ALLOWED 

■ 



4.6. 76 



6-V-2 





IMSCTRL 


SYSTEM = 


f IWT 1 
MFT-II 
PCP 


/ n rrU 

BATCH 








flAXIO = NUMBER 






MAXREGN = NUMBER 






COMMSVC = (number , number ) 






OCEiDA = APPENDAGE SUFFIX 






OSAMSVC = NUMBER 






FISGBUFF = number 






CKPT = aooo 






NUMBER 



IMSCTRL SYSTEM = (MFT-II, ALL), MAXI 0=10, MAXREGN=2, c 
C0MMSVC=(2i|i|,2^5) ,0CENDA=Z8,0SAMSVC=2i|3, c 
MSGBUFF=5,CKPT=500 



't.6.77 



6-V-29 



NAME 


MSGQUEUE 


QCRIN = (DDNAME/DSNAME, UNIT/SERIAL)/ 

QCROUT = (ddname.dsname.uniT/Serial) 

FISGIN = (ddname/DsnamE/UNit, serial)/ 

MSGOUT = (ddnamE/Dsname/UniT/Serial) 

REUSE = /YES/100\ 
\ NO,N / 



MSGQUEUE 



QCRIN 

QCROUT 

FISGIN 

MSGOUT 

REUSE 



(SMS6IN,IMS.SMSG1N,2311,IMS001), 
(SKSG0UT,IMS.SMSG0UT,2311,IMS0C1), 
(MMSGIN, IMS.I¥lSGIN,2311, IMS002) , 
(FiMSGOUT , I MS . MMSGOUT , 2311 , 1 MS002 ) , 
YES,20 



'i.e. 78 



6-V-30 



NAME 


MACLIB 


UNIT = NAME 
VOLNO = SERIAL 

PDS = IMS, MACLIB 

NAME 

COPY = UTILITY 

ALL 



MACLIB 



UNIT=231il,V0LN0=IMFMFT,PDS=IMS. MACLIB, 
COPY=UTILITY 



o 



PROCLIB - 


- IMS. PROCLIB 


DBDLIB - 


- IMS. DBDLIB 


PSBLIB - 


- IMS. PSBLIB 


PGMLIB - 


- IMS. PGMLIB 


RESLIB - 


- IMS. RESLIB 



IMSGEN 



NAME 


IMSGEN 


UTISDS = DSNAME 

ASMPRT = OFF 
ON ' 

LEPRT = (option, option) 



UT1SDS=SYSUT1,ASMPRT=0N, 
LEPRT=(LIST,XREF) 



4.6.79 



6-V-31 



v_ 



MACRO- INSTRUCTION 


NUMBER PER SET 


PURPOSE 


APPLCTN 


-1- 


NAMES APPLICATION 
PROGRAM. DELIMITS THIS 
SET OF MACRO- 
INSTRUCTIONS. 


DATABASE 


N 


NAMES DATA BASES USED 
BY APPLICATION PROGRAM. 


TRANSACT 


N 


NAMES TRANSACTION CODES 
WHICH WILL BE PROCESSED 
BY THE ABOVE 
APPLICATION PROGRAM. 



APPLICATION DESCRIPTION MACRO- INSTRUCTION SET 



L{.b. 80 



6-V- 32 



NAME 



APPLCTN 



PSB = PSBNAME 



P6MTYPE = 



IE 
BATCH 



ANY 



APPLCTN 



PSB = HIMAKROl 



NAME 


DATABASE 


DBD = DBDNAME 






INTENT = 


UPDATE 

SHARE 

EXCLUSIVE 


' 






LOG = 


YES 










NO 





o 



DATAl 



DATABASE 



DBD = DI21PART,INTENT=SHARE, 
LOG=NO 



NAME 


TRANSACT 


CODE = TRANSACTION CODE 

PRTY = (NORMAL/ LIMIT/ LIMIT 
COUNT) 






MS6TYPE = 


(HULTSEG,NONRESPONSE) 
(SNGLSE6, RESPONSE) ) 






PROCLIM = (seconds, count) 






INQUIRY = 


NO 
YES 






1 


L J 



TRANl 



TRANSACT 



o 



C0DE=PART,PRTY=(ilJ0,8), 
MSGTYPE=(SNGLSEG,N0NRESPONSE) , 
PR0CLIM=(2,6) 



^.6.8i 



6-V-33 



MACRO- INSTRUCTION 


NUMBER PER SET 


PURPOSE 


LINEGRP 


1 


NAMES COLLECTION OF 
TERMINALS WITH LIKE 
ATTRIBUTES. DELIMITS 
THIS SET OF MACRO- 
INSTRUCTIONS. 


LINE 


N 


PROVIDES ADDRESS OF 
LINE AND DELIMITS 
TERMINALS ON SAME LINE. 


TERMINAL 


N 


PROVIDES PHYSICAL 
TERMINAL DATA AND 


• 




DELIMITS LOGICAL 


- 




TERMINAL NAME. 


NAME 


N 


PROVIDES LOGICAL 
TERMINAL NAMES 


MASTTERF 


1 

(per definition) 


LOGICAL NAME OF MASTER 
TERMINAL 


POOL 


1 


POOL OF LOGICAL TERMINALS 


SUBPOOL 


^ 


SUBPOOL OF LOGICAL 
TERMINALS 



i+.e. 82 



6-V-34 



NAME 


LINEGRP 


DDNAME = NAME 






FEAT = 


S-TACTL, NONSWITCH 
TRANSCTL, SWITCHED 








UNITYPE = 


2740 
1052 





LINGl 



LINEGRP 



DDNAME=DD1,FEAT=(TRANSCTL,SWITCHED), 
UNITYPE=2740 



o 



TFRMINAI. TYPF 



OPERAND 



AUTOCALL 

AUTOANS 

AUTOPOLL 



1 

V 


-1050-^ n 


1 
t 


_ ,_ ._ __ _ _,_ .„._ . 


1 


STACTL 
SWITCHED 


STACTL 
NONSWITCHED 


TRANSCTL 
SWITCHED 


OPTIONAL 


NOT ALLOWED 


OPTIONAL 


OPTIONAL 


NOT ALLOWED 


OPTIONAL 


NOT ALLOWED 


OPTIONAL 


NOT ALLOWED 



o 



if. 6. 83 



6-V-35 



NAME 


LINE 


AUTOCANS 
AUTOCALL 
FEAT = AUTOPOLL 
POLL 

ADDR = HEXNUMBER 






ZONE = NUMBER 



■^ 



Q 



LINE 



FEAT = P0LL,ADDR=03B 



NAME 


TERMINAL 


ADDR = TERMINAL ADDRESS 
CHARACTER 



TERMINAL 



ADDR = E2 



NAME 


NAME 


LTERM NAME 



N22 



NAME 



L2740S2 



NAME 


mSTTERM 


LOGICAL NAME 



MASTTERH master 



tt.6. 84 



6-V-36 



NAME 


POOL 


ZONE = NUMBER 

FEAT = AUTOANS 
AUTOCALL 



PI 



POOL 



FEAT = AUTOCALL 



o 



NAME 


SUBPOOL 


TELNO = NUMBER 



o 



SUBPOOL 



TELNO = NUMBER 



4.6. 85 



6-V. 37 



GROUP 1 CREATE RESLIB, MACLIB, AND RESLIB 

STEP 1 MOVES LOAD MODULES TO RESLIB 

STEP 2 LINK EDITS THE OSAM SVC ROUTINE, IF BATCH 

ONLY WILL ALSO LINK EDIT DFSIRCOO, DFSIPCOO, 
AND DFSIDLLO WITH DUMMY INTER-REGION SVC'S 

STEP 3 MOVES MACROS TO MACLIB 

STEP H ADDS IMS PROCEDURES TO PROCLIB 

STEP 5 ASSEMBLES THE BATCH SCD 

STEP 6 LINK EDITS THE BATCH SCD WITH THE BATCH NUCLEUS 

GROUP II Di7I CONTROL BLOCKS 



STEPS 7 & 8 ASSEMBLE AND LINK EDIT DFSIDIRO AND INCLUDES 
PSB DIRECTORY, DMB LISTS, AND DMB DIRECTORY 

STEPS 9 & 10 ASSEMBLE AND LINK EDIT DFSISMBO 

GROUP III USER SPECIFIED COMMUNICATION CONTROL BLOCKS 

STEPS 11 & 12 ASSEMBLE AND LINK EDIT DFSICLLO INCLUDES CLE's, 

POLLING LISTS, LERB's, LINE DCB's, AND THE BTAM 
OPEN LIST 

STEPS 13 & 14 ASSEMBLE AND LINK EDIT DFSICNTO INCLUDES SKELETON 
DFSICTMO 

STEPS 15 & 16 ASSEMBLE AND LINK EDIT DFSICTBO 

4.6.86 6-V-38 



o 



o 



GROUP IV SYSTEM SPECIFIED COmUNICATION CONTROL BLOCKS 
STEPS 17 & 18 ASSEMBLES AND LINK EDITS DFSICTTO 
STEPS 19 & 20 ASSEMBLES AND LINK EDITS DFSICVBO 
STEPS 21 & 22 ASSEMBLE AND LINK EDIT DFSISDBO 

GROUP V SYSTEM CONTROL BLOCKS 

STEPS 23 & 2iJ ASSEMBLE AND LINK EDIT DFSISAVO 

STEPS 25 & 25 ASSEMBLE AND LINK EDIT DFSIPSTO 

STEPS 27 & 28 ASSEIiBLE AND LINK EDIT DFSIQUEO 

INCLUDES DFSIHLDO 

STEPS 29 & 30 ASSEMBLE AND LINK EDIT DFSIOS^O 

INCLUDES DFSI0S50 

STEPS 31 & 32 ASSEMBLE AND LINK EDIT DFSISCDO 

INCLUDES DFSINTBO 

STEPS 33 & 34 ASSEMBLE AND LINK EDIT DFSISVAO 
GROUP VI SYSTEM LINK EDITS 



STEP 35 LINK EDITS DFSISVFO OR DFSISVVO 
LINK EDITS DFSIRCOO 
LINK EDITS DFSIPCOO 
LINK EDITS DFSIDLLO 

STEP 36 LINK EDITS DFSIBLKO 

STEP 37 LINK EDITS DFSINUCO 

STEP 38 PRODUCES A PDS DIRECTORY LIST OF RESLIB 6-V-39 

4.6.87 



TRANSACT PERS 



)(TERMINALDEPT01 



TRANSACT PERS 



TRANSACT PAYROLL 




SECURITY 

MAINTENANCE 

PROGRAM 



-L 


J- 


-L 











-L 


J- 





1 











1 


-'■ 


-L 





-L 


-»■ 


J- 





J- 


I 






PASSWORD MATRIX 











t 














-L 


J- 








1 


1 


-1- 


-1- 








-1- 





-•- 











1 


1 


1 












TERMINAL MATRIX 



4.6. 88 



6-V-itO 



SECURITY MAINTENANCE 



o 



ADD, DELETE, OR CHANGE PASSWORDS FOR THE FOLLOWING 
RESOURCES ; 

• TRANSACTION CODES 

• TERMINAL COMMAND VERBS 

• PROGRAMS 

• DATA BASES 

• LOGICAL TERMINALS 

• PHYSICAL TERMINALS 

SPECIFY TERMINAL SECURITY FOR; 

• TRANSACTION CODES 

• COMMAND VERBS 



o 



^.6.89 6-V-ttl 



CONTROL 


DATA 




STATEMENT 


STATEMENT 


OPERAND 


)( PASSWORD 




NAME 




TERMINAL 


LOGICAL TERMINAL NAME 




TRANSACT 


NAME 




COMMAND 


COMMAND LANGUAGE VERB 




DATABASE 


NAME 




PROGRAM 


NAME 




PTERM 


NAME 


)( TERMINAL 




LOGICAL TERMINAL NAME 




PASSWORD 


NAME 




TRANSACT 


NAME 




COffiAND 


COMMAND LANGUAGE VERB 


)( TRANSACT 




NAME 




PASSWORD 


NAME 




TERMINAL 


LOGICAL TERMINAL NAME 


)( COMMAND 




COMMAND LANGUAGE VERB 




PASSWORD 


NAME 




TERMINAL 


LOGICAL TERMINAL NAME 


M DATABASE 

OR 

:>( PROGRAM 




NAME 
NAME 


)( PTERM 




NAME 




PASSWORD 


NAME 



^,6, 90 



6-V-tf2 



o 



PASSWORD SECURITY 


PASSWORD PROFILE 




)( PASSWORD 


SAMSMITH 


TRANSACT 


PAYROLL 


TRANSACT 


PERS 


COMMAND 


LOCK 


COIflAND 


UNLOCK 


DATABASE 


PAYREC 


PROGRAM 


PAYPROG 


RESOURCE PROFILE 




) ( TRANSACT 


PAYROLL 


PASSWORD 


SAMSMITH 


)( TRANSACT 


PERS 


PASSWORD 


SAMSMITH 


)( COMMAND 


LOCK 


PASSWORD 


SAMSMITH 


)( COMMAND 


UNLOCK 


PASSWORD 


SAMSMITH 


) ( DATABASE 


PAYREC 


PASSWORD 


SAMSMITH 


) ( PROGRAM 


PAYPROG 


PASSWORD 


SAMSMITH 



o 



4,6.91 



6-V-*f3 



PASSWORD SECURITY 



ABCXYZ 


X 






X 






SAMSNITH 


X 


X 


X 


X 


X 


X 


7142613 






X 








WTWT 






X 


X 






ZZABC 


X 




X 






X 




CD 
CD 
CYT 

n,. 

>- 
<c 
n , 


LU 

or: 

>- 


„, 1 

CD 

>- 

<c 

Q_ 


CO 

nr. 

LU 
Q- 


CD 


CD 
CD 

_J 

HD 



4.6,92 



6-V- 44 



PASSWORD SFCURTTY 



PAYREC (SAMSMITH) TEXT 



o 





























PSWDO 


SMB 












TRAN 
PTR ROWl 








PSWDl 
















PSWD2 
























SAMSMITH 














SMB 








PSWD4 


_fAYRE_C 

PTR R0W4 














? 1 


f V S 


1 ^ 













- 





1 


1 













SMB 




1 

























1 


■J 


1 





1 













_TR_AN2 

PTR R0W6 













J. 
















1 


1 


1 





















- 


1 


1 





1 


1 















J. 


J. 


1 




















o 



^»6,93 



6-V-if5 



TERMINAL SECURITY 


TRANSACTION AND COMMAND PROFILE 




)C TRANSACT 


PAYROLL 


TERMINAL 


DEPT^IO 


TERMINAL 


DEPT65 


TERf^INAL 


VPPERS 


) C TRANSACT 


PERS 


TERMINAL 


DEPTiJO 


)( COMMAND 


HOLD 


TERMINAL 


DEPT3L 


TERMINAL PROFILE 




)C TERMINAL 


DEPT^lO 


TRANSACT 


PAYROLL 


TRANSACT 


PERS 


)( TERMINAL 


DEPT65 


TRANSACT 


PAYROLL 


)C TERMINAL 


VPPERS 


TRANSACT 


PAYROLL 


)C TERMINAL 


DEPT3L 


COMMAND 


HOLD 



4 , 6 . 9/t 



6-V-if6 



TERMINAL SFQIRTTY 



o 



DEPT40 




X 


X 




DEPT65 




X 






S27i|001 


X 






X 


S274002 


X 






X 


S27il003 


X 






X 


VPPERS 




X 








>- 

n- 
o 

h- 

> 


—1 
-J 

>- 
<c 
n 


CO 

UJ 


LU 
1 

n 

CO 



o 



4.6. 95 



6-V-tt7 



TERMINAL SECURITY 



TRAN 
PTR ROWl 



LOGICAL TERMINALS 



SHB 
TRANl 
PTR R0W2 



SMB 
TRAN2 
PTR R0W3 



T 


? 


Y 


T 










■ 1 





1 


1 














1 


1 





1 














1 








1 

















1 























-J 


•1 


















CNTA 



CNTB 



CNTC 



CNTD 



4.6.96 



6-V-'(8 



SECURITY MAINTENANCE - STEP 1 




DFSISDEO 



o 




DFSISHPO 
SECURITY 

MAINTENANCE 
PROGRAM 




ERROR REPORT 
AND LISTING 
OF SECURITY 
PRODUCED 



USER SECURITY 

DATA & CONTROL CARDS 



STATEMENTS TO 
CAUSE SECURITY 
TABLES TO BE 
GENERATED 



TO 
ASSEMBLER 



STATEMENTS TO 
CAUSE SECURITY! 
MODULES TO BE 
LINKED 



TO 

LINKAGE 

EDITOR 



o 



^.6.97 



6-V-it9 



SECURITY MAINTENANCE - STEPS 2 AND 3 



IMS.MACLIB 




OS ASSEMBLER 




OS 
LINKAGE EDITOR 




SECURITY 
MODULES 

ADDED TO 
IMS.RESLIB 



ASSEMBLER 
LISTING OF 
SECURITY 
BLOCKS 
CREATED, 




4.6.98 



6-V-50 



o 



TERMIiMAL COmANDS 
(SUGGESTED GROUPINGS) 



l-IASTER TERMINAL ONLY 



REMOTE AND MASTER TERMINAL 



o 



/ASSIGN 

/CHANGE 

/CHECKPOINT 

/DBDUMP 

/DBLOG 

/DBNOLOG 

/DBRECOVERY 

/ERESTART 

/NRESTART 

/DELETE 

/DISPLAY 

/PSTOP 

/PURGE 

/START 

/STOP 



/BROADCAST 

/TEST 

/EXCLUSIVE 

/END 

/LOG 

/CANCEL 

/LOCK 

/I AM 

/UNLOCK 

/RDISPLAY 

/SET 

/RESET 



4.6. 9* 



6-V-51 



60MMAND LANGUAGE FORMAT 



/VERB (PASSWORD) KEYWORD PI KEYWORD P2, P3, P4. COMMENTS 



EXAMPLE: 

/START (MASXYZ) LINE 1 PTERM A, B. THIS IS A COfflENT 



C' 



4.6.100 6-V-52 



o 



o 



KEYWORDS 

LINE 

PTERI^i 

LTERM 

IRAN OR TRANS 

PROG OR PROGRAM OR PGM 

DATABASE 

PASSWORD OR PSWD 

CPRI 
LPRI 

NPRI 

LMCT 

REGION OR REG OR MSGREG 



I*. 6.101 6-V-53 



/CHANGE 

/CHANGE PASSWORD ABCD TO PASSWORD EFGH 

/CHANGE PASSWORD ABCD TO EFGH 

/ASSIGN 

/ASSIGN LTERM ABC TO LINE 15 PTERM A 

/ASSIGN LTERM ABC TO LINE 2 PTERM A PTERM B 

/ASSIGN LTERM ABC TO LINE 3 PTERM A LINE ^1 PTERM B 

/ASSIGN CPRI 6 TO TRAN ABC 

/ASSIGN LPRI 12 TO TRAN XYZ, ABC 

/ASSIGN NPRI 10 TO TRAN \m 

/ASSIGN Lf'lCT 15 TO TRAN Z31 



"t. 6.102 6-7-54 



o 



o 



/DELETE 



/DELETE PASSWORD SECURITY FOR TRAN ABl, AB2 



/DELETE PASSWORD SECURITY FOR LTERM ABC, DEF 



/DELETE PASSWORD SECURITY FOR LINE 1 PTERfl A, B 



/DELETE PASSWORD SECURITY FOR PROGRAM DFG, RST 



/DELETE PASSWORD SECURITY FOR DATABASE FINl, MN2 



/DELETE TERMINAL SECURITY FOR TRAN ABl, AB2 



4.6.103 6-V-55 



/DISPLAY 




(PASSWORD ) 


STATUS 




ACTIVE 


* 


QUEUE 



* 



•}{• 



* 



•M- 



TRAN 



PGM 



DATABASE 



LINE 



PRIORITY 



j CODE 

ALL 

NAME 
ALL 

NAME 
ALL 

NUMBER 
ALL 



LINE NUMBER PTERM 
LTERM 



NAME 
ALL 



N 
ALL 



NUMBER 
ALL 



•» 



ASSIGNMENT LTERM 



ASSIGNMENT LINE number 



PTERM 



MASTER 
A SERIES OF PARAMETERS ARE ACCEPTABLE 

4. 6. lOit 



NAME 
ALL 



NUMBER 
ALL 



6-V-56 



/PSTOP 



/PURGE 



/STOP 



/START 



o 



/PSTOP 


LINE 1, 1. 3 


/START 


LINE ALL 


/STOP 


LINE 1 PTERM A, B 


/START 


LINE 1 PTERM ALL 


/PSTOP 


LTERM ABC, DEF 


/PURGE 


LTERM ALL 


/STOP 


TRAN ABl, AB2 


/START 


TRAN ALL 


/STOP 


PROGRAM GH2, GH3 


/START 


PROGRAM ALL 


/STOP 


DATABASE MNl, MN2 


/START 


REGION 



o 



NOTE: 



PROGRAM, DATABASE, REGION - ONLY /START 
AND /STOP ARE ACCEPTABLE 



"i.e. 105 



6-V-57 







LINE & 














LINE 


PTERM 


LTERM 


IRAN 


PROGRAM 


DATABASE 


REGION 


/PSTOP 


1, 1. 3 


1, 2, 3 


2, 3 


6, 7 


* 


* 


* 


/PURGE 


1, ^, 5 


1, ^. 5 


4, 5 


1, 8 


•«• 


* 


* 


/STOP 


1, 2, 4 


1, 2, i| 


1. ^ 


1, 7 


9 


10 


1 - 





















-L 


- DO NOT QUEUE INPUT 




2 


- DO m SEND OUTPUT 


4:- 


3 


- QUEUE OUTPUT 




4 


- DO NOT QUEUE OUTPUT 


o 


5 


- SEND OUTPUT 




6 


- QUEUE INPUT 




7 


- DO NOT SCHEDULE SMB 




8 


- SCHEDULE THIS SMB 




9 


- DO NOT SCHEDULE THIS PROGRAM 




10 


- DO NOT USE THIS DATA BASE 




11 


- STOP A MESSAGE REGION 


1 
< 

1 
U1 
00 


* 


- NOT ALLOWED 



o 



o 



o 



/BROADCAST 

/BROADCAST TO PTERM ALL 
MESSAGE TEXT 

/BROADCAST TO ALL 
MESSAGE TEXT 

/BROADCAST TO LINE ALL 
MESSAGE TEXT 

/BROADCAST TO LTERH ALL 
MESSAGE TEXT 

/BROADCAST TO LTERi'l ABC, DEF 
MESSAGE TEXT 

/BROADCAST TO ABC, DEF 
MESSAGE TEXT 

/BROADCAST TO LINE 2 
MESSAGE TEXT 

/BROADCAST TO LINE 2 PTERM ALL 
MESSAGE TEXT 

/BROADCAST TO LINE 2, 3 
MESSAGE TEXT 

/BROADCAST TO LINE 2 PTERM A, B 
MESSAGE TEXT 



t.6.107 6-V-59 



/TEST 



/EXCLUSIVE 



/END 



/LOG THIS IS A CLASS EXERCISE 



/CANCEL 



o 



4.6.108 6-V-60 



/LOCK - /UNLOCK 

/LOCK PTERI'l (PASSWORD) 

/LOCK (PASSWDl) LTERM ABC (PASSWD2), EFG (PASSWD3) 

/LOCK TRAN ABl (PASSWD4), AB2 (PASSWD5) 

/LOCK PROGRAM GHl (PASSWD6), GH2 (PASSWD7) 

/LOCK DATABASE MNl (PASSWD8), MN2 (PASSWD9) 

/UNLOCK DATABASE MNl (PASSWD8), MN2 (PASSWD9) 



o 



o 



^.6. 109 



6-V-61 



/I AM 

/lAM LTERfl PI (PASSWD) 

/lAM PTERM (PASSWDl) LTERM PI (PASSWD3) 



/RDISPLAY 



/RDISPLAY (PASSWD) MASTER 



4.6. 110 6-V-62 



COMMANDS 



o 



o 



/CHECKPOINT 

/CHECKPOINT FREEZE [ABDUFiPJ 

/CHECKPOINT DUMPQ [ABDUMP] 

/CHECKPOINT PURGE [ABDUMP 

/DBDUMP 

/DBDUMP STOP 

/NRESTART 

/ERESTART 

/DBRECOVERY 



4.6. Ill 6-V-63 



COMMANDS 



/CHECKPOINT 



/CHECKPOINT FREEZE ABDUMP 



/CHECKPOINT DUMPQ 



/CHECKPOINT PURGE 



/DBDUMP 



/DBDUMP 



STOP 



/NRESTART CHKPT 



/NRESTART CHKPT G8173/1H102Q 



/NRESTART CHKPT FORMAT ALL 



/NRESTART CHKPT 68165/141050 BLDQ 



/NRESTART CHKPT 68W3/11300 BLDQ FORMAT ALL 



/ERESTART CHKPT 68176/105010 SERIAL TAPE50 



/ERESTART CHKPT 68141/091050 BLDQ FORMAT ALL 



/DBRECOVERY DATABASE NAME SERIAL NUMBER, LUMBERS 



It. 6. 112 



6-7-64 



SIMPLE CHECKPOINTS 



o 



ACTION ORDER 


ACTIVITY 
COUNT 


TERMINAL 
COMKAND 


ABNORMAL 
END 


FREE MESSAGE REGIONS 


X 


X 




LOG BLOCKS AND TABLES 


X 


X 


X 


WRITE CHECKPOINT ID TO MASTER TERMINAL 


X 


X 




WRITE CHECKPOINT ID TO SYSTEM CONSOLE 






X 


CLOSE LOG 






X 


RESUME NORMAL PROCESSING 


X 


X 




CLOSE ALL DATA BASES 






X 


CLOSE QUEUES 






X 


WRITE CHECKPOINT ID TO MASTER TERMINAL 






X 


TERMINATE 






X 



o 



4.6.:ii3 



6-V-65 



SHUTDOWN CHECKPOINTS 



ACTION ORDER 


FREEZE 


DUMPQ 


PURGE 


-^' 


STOP TERMINAL INPUT 


X 


X 


X 




STOP TERMINAL OUTPUT 


X 


X 






PROCESS ALL QUEUED TRANSACTIONS 






X 




FREE MESSAGE REGIONS 


X 


X 


X 




TERMINATE MESSAGE REGIONS 


X 


X 


X 




SEND ALL OUTPUT 






X 




STOP TERMINAL OUTPUT 






X ^ 


-y' 


FORCE END OF VOLUME ON LOG TAPE 


X 


X 


X 




DUMP QUEUES TO LOG TAPE 




X 


X 




CLOSE QUEUES 


X 


X 


X 




CLOSE ALL DATA BASES 


X 


X 


X 




LOG BLOCKS AND TABLES 


X 


X 


X 




WRITE CHECKPOINT ID TO MASTER TERMINAL 


X 


X 


X 




WRITE CHECKPOINT ID TO SYSTEM CONSOLE 


X 


X 


X 




CLOSE LOG 


X 


X 


« c 




TERMINATE 


X 


X 


X 





4.6.114 



6-V-66 



IMS/360 SYSTEM LOG ENTRIES 



o 



FOR RESTART 

• MESSAGE QUEUE CONTROL BLOCKS 

• CHECKPOINT DATA 

• OS/360 DATA SET OPEN OR CLOSE 

• CHANGES TO A DATA BASE 



FOR RESTART AND STATISTICS 

• MESSAGE FROM TERMINAL 

• MESSAGE TO TERMINAL OR PROGRAM 

FOR STATISTICS ONLY 

• ERROR SEGMENTS 

• COMPLETION OF SEND RECORD 

• APPLICATION ACCOUNTING RECORD 
t IMS/360 ACCOUNTING RECORD 



WHEN WRITTEN 

WHEN CHANGED 

AT TIME OF CHECKPOINT 

WHEN DATA SET OPENED OR CLOSED 
INSERT, DELETE, OR REPLACE 
AGAINST A DATA BASE 



WHEN MESSAGE COMPLETE 
WHEN MESSAGE COMPLETE 



WHEN HARDWARE ERROR 
COMPLETION OF SENDING 
TERMINATION OF APPL. PROGRAM 
IMS/360 IS STARTED OR STOPPED 



o 



4.6.115 



6-V-67 



LOG RECORD FORMAT 



LL 



BB 



FLAG 



RECORD 



-2 



^" 



— LL— 



•VARIABLE 



4.6, 116 



6-V-68 



MESSAGE LOG RECORD 



o 



o 



BYTES 






2 


RECORD LENGTH 




2 


NOT USED 




-■ 


RECORD FLAG 




1 


COMMUNICATIONS FLAG 




-- 


TERMINAL TYPE 




-- 


LINE NUMBER 




2 


TERMINAL ADDRESS 




2 


INPUT SEQUENCE NUMBER 




8 


INPUT SYMBOLIC NAME 


(OUTPUT) 


4 


DATE 




4 


TIME 


-— > 






RECORD FLAG 




INPUT MESSAGES 


01 




INPUT ERRORS 


02 




OUTPUT MESSAGES 


03 




OUTPUT ERRORS 


04 




STATISTICS 


05 




ACCOUNTING LOG 


06 




APPLICATIO^I ACCOUNTING 






LOG 


07 




4.6,117 





6-V-69 



APPLICATION ACCOUNTING LOG RECORD 



BYTES 










2 


RECORD LENGTH = 108 




2 


NOT USED 




1 


RECORD CODE = X'07' 




8 


PSB NAME 




8 


TRANSACTION CODE 






1 


PRIORITY 




A. 


TYPE 00 = MESS 02 = 


■■ BATCH 




1 


PARTITION KEY 




4 


ELAPSED TIME 




if 


COMPLETION CODE 




8 


JOB NAME 




it 


NO. OF MESSAGES PROCESSED 


i 

DATA 


i 


il 


GU 




4 


GN 




i| 


GNP 




H 


GUH 




H 


6NH 




H 


GNPH 


BASE 


4 


INSERT 




4 


DELETE 






i» 


REPLACE 




4 


MOVE CALLS 


^ 


4 


GU MESS 


k 


4 


GN MESS 




4 


INSERT MESS 


MESSAGE 


4 


NOT USED 




'*.(,. 


118 







6-V-70 



PROCESS I>IG THE LOG 



Q LOG DATA SET 



o 



o 



EDIT PASS 1 



a 
I 



SORT 



T 

a 



EDIT PASS 2 




1 

o 


■— 


MESSAGES AND STATISTICS RECORDS 
EXPLODED FROM MESSAGES 


SORT (OPTIONAL) 




SORT 




i 

^ MESS/s 


iGES (IN SEQ. BY 










^ TRANSACTION CODE) 


REPORT WRITER 




V 










MESSAGE SELECT 
AND DISPLAY 












REPORT 




y ^ 


\ 






U. MSGS 


MSG 
LIST 

It 


.6.119 fi w 
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TYPES OF STATISTICAL REPORTS 



• MESSAGES QUEUED BUT NOT SENT ~ BY TERMINAL 

• LINE AND TERMINAL LOADING BY TIME OF DAY 

• ERROR REPORTS ON BAD TRANSMISSION 

• TRANSACTION REPORT 

e TRANSACTION RESPONSE REPORT 

APPLICATION ACCOUNTING REPORT 

a IMS/360 ACCOUNTING REPORT 



'*-6-I-20 6-V-72 



CO 



CD 






O 



O 



CO 








f— 








(Z) 








^ 








h- 








ZD 








pq 










CO 


cn 


CD 


Q 
Li 


LU 
CZ3 




r-l 


ZD 


— i<i: 






LU 


<X. CO 






:z) 


1— CO 






C3 


CZ> LU 






GO 








LU 








UD 








<C 








CO 


z^ 






CO 


O 






LU 


t— 1 






^ 


1— 


<a: 


pq 




C_> LU 


CsJ 


CM 




^Crza 


<c 


•=3: 




CO CD 


c_i 


o 




2=C_> 


C3 


C3 




<c 


CD 


CD 




rr: 


r-i 


rH 
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6-V-73 





• 




LINE A^D T 


ERMINAL REPORT 




DATE 2/11/69 










TOTAL 


TOTAL 


AVG, 


HOURLY 


DISTRIBUTION 




LINE TERM 


R/S 


MESSAGES 


CHARACTERS 


SIZE 


00-07 


07-08 


08-09 




001 AG 


















T15CASIA 


S 


12 


600 


50 


1 


3 


2 






R 


l^i 


810 


60 


-- 


2 


2 




002 AO 


















T15CAS2A 


S 


4 


320 


80 


J. 








4^ 

• 

cn 




R 


li 


80 


20 











M 


T15CAS2B 


S 


6 


180 


30 


■ 





1 






R 


5 


200 


HO 


-- 


2 


-- 




TRM 


S 


10 


500 


50 


2 





2 




TOTALS 


R 


9 


280 


31 


-■ 


2 


2 




SYSTEM 


S 


22 


1100 


50 


3 


3 


4 




TOTALS 


R 


23 


1120 


48 


2 


it 


H 



en 
I 
< 

I 

*^ 



o 



o 



TRANSACTION REPORT 



4r 






TRANSACTION 
CODE 


R/S 


TOTAL 
MESSAGES 


TOTAL 
CHARACTERS 


AVG 
SIZE 


HOURLY 
00-07 


DISTRIBUTION 
07-08 08-09 


T21CAS1R 


R 


5 


250 


50 





- 


T21CAS2S 


S 


15 


1250 


83 


5 


2 3 


SYSTEM 


S 


15 


1250 


83 


5 


2 3 


TOTALS 


R 


5 


250 


50 





1 1 



I 
< 

I 



TRANSACTION RESPONSE REPORT DATE 08-31-67 



TYPE TOTAL LONGEST 95% 75% 50% 25% SHORTEST 

TRANSACTION RESPONSES RESPONSE RESPONSE RESPONSE RESPONSE RESPONSE RESPONSE 



T231T05FI 25 05M 30. OS 05M 00. OS 03M 00. OS 02FI 20. OS OlM 00. OS 10. OS 

T2359ALL 5 20. OS 15. OS 8. OS 6. OS it. OS 3. OS 



4::- 
cr> 



to 



I 
< 

I 



r 



o 



o 



APPLICATION ACCOUNTING REPORT 



DATE 01/02/68 



DATA EASE COUNTS 






to 



PROGRAM TRANSACTION MESSAGE COUNTS^ 



NAME 



NAME 



PRI QTY GU GN ISRT GU GN 



PSBOOOOl TRANSOOl 01 71 142 1^1 71 81 42 

02 81 162 lb 81 91 31 

** 152 304 iU 152 172 73 

SYSTEM TOTAL 152 304 3U 152 172 73 




BAD 
CC 

1 


1 
1 



TOT MESS AVR 

CPU TIME TIME 

10.653 0.15S 

12.15S 0.15S 

22.808 0.15S 



I 

< 
I 



IMS ACCOUNTING REPORT DATE 1-22-68 



IMS CPU TIME FOR DAY 1/20/68 IS 07H m 07, 9S OR 28,027. 9S 

IMS CPU TIME FOR DAY 1/21/68 IS 06H 30M 29. 5S OR 23,^29.58 

IMS CPU TIME FOR DAY 1/22/68 IS 07H ^JOM 39, 5S OR 27,639.58 

IMS CPU TOTAL TIME IS 21H 58M 16, 9S OR 28,096.98 



-1^ 



to 
en 



en 
I 
< 

I 

00 



( 



O CONTROL CARDS 



o 



o 



TRANS CODE=(TRANSCOD,LO), CTRANSA,!) 

TRANS CODE=(TRANSA,I) 

TRANS CODE=(INV*,,0) 

TRANS CODE=(ALL,LO) 

SYM NAf€=(TERMA,I,0) 

SYM NAME= (TERMPAY ,1,0, TERM) 

TERM ADDR=(3,A,L0), W2,C,,0,21,A) 

TERM ADDR=(LALLL0) 

TIME=(680W, 1620, 68015, 1900) 

NON PRINT=HEX 



4.6.127 6-V-79 



"N 



SORTING THE LOG TAPE 



BY DATE 

SORT FIELD=(5,1,CH,A,9,4,PD,A,13,36,CH,A) 

WITHOUT DATE 

SORT FIELD=(5,I,CH,A,I3,36,CH,A) 



"t.e. 128 6-V-80 



o 



c 



(INPUT) 



QUEUE 
CONTROL 
BLOCK 

TRANSACTION 
CODE XYZ 



(OUTPUT) 



QUEUE 

CONTROL I — 

BLOCK 

LOGICAL 

TERMINAL 

L2i}l 




MESSAGE QUEUES 



NEXT TO READ 



PREASSIGNED NEX' 



NDOJILREAD 
LAST WRITTEN 



PREASSIGNED NEXT 



NEXT TO READ 



LAST SYSTEM 
MSG WRinEN 

LAST OTHER 
TRAFFIC WRITTEN 




PRE-ASSIGNED 
NEXT 



** 



MSGS WHICH HAVE BEEN 
READ AND COMPLETED 

PRE-ASSIGNED SPACE FOR 
NEXT SERIALLY ENQUEUED 
MESSAGE OF THIS TYPE 



o 




MESSAGE 1 
t 4 



MESSAGE 2 



MESSAGE 3 



MESSAGE i| 



MESSAGE 5 



■»* 



■lESSAGE RESPONSE OR EXCL 



I 



* 



RESPONSE MESSAGE 



'i T 



EXCLUSIVE REPLY 1 



HH 



> 



EXCLUSIVE REPLY 2 



T 



RESPONSE 
MSG AND 
EXCLUSIVE 
MSG STRING 



H EXCLUSIVE REPLY 3 



T 



J 



SYSTEM OR OTH ER TRAFFIC 



SYSTEM MSG 1 


♦ 


4 


SYSTEM MSG 2 


♦ 


_ ♦ 



SYSTEM MSG 
♦ 4 



> 



SYSTEKi MSG 
& OTHER 
TRAFFIC 
STRING 



OTHER TRAFFIC MSG 



J? 



4.6.129 



6-V-81 



TWO DATA SETS FOR MESSAGE QUEUES 



INPUT OR 
OUTPUT QCB 




MULTIPLE LINE DATA SET 
MESSAGE BUFFER 



TEXT LINES BLOCKED 
QST BUFFER FULL) 



MORE TEXT LINES 
BLOCKED (LAST BUFFER 
FULL) 



TEXT LINES BLOCKED 




4.6. 130 



6-V-82 




THREE DATA SETS FOR MESSAGE QUEUES 



NEXT TO 
READ 



LAST 
WRITTEN 



o 




NEXT TO 
READ 



LAST 
WRITTEN 



o 



INPUT OCR DATA SET 



MULTIPLE LINE 
MSG HEADER 



^J[ 



SINGLE LINE MESSAGE 



#; 



COMMON MESSAGE BUFFER 
DATA SET 



TEXT LINES BLOCKED (FIRST 
BUFFER) 



J 



TEXT LINES BLOCKED (LAST 
BUFFER) 




OUTPUT OCR DATA SET 



SINGLE LINE MESSAGE 



I f 



MULTIPLE LINE MSG 
HEADER 



#3 




LAST MSG 
BUFFER 



FIRST MSG 
BUFFER 




FIRST MSG 
BUFFER 



LAST MSG 
BUFFER 



4.6.131 
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FOUR DATA SETS FOR MESSAGE QUEUES 



INPUT 
QCB 





INPUT MULTI- 
LINE MESSAGE 



INPUT SINGLE 
LINE BUFFER 





TRAILER LINES 
BLOCKED 



OUTPUT 
QCB 





OUTPUT SINGLE 
LINE MESSAGE 



OUTPUT MULTI-LINE 
MESSAGE HEADER 





TRAILER LINES 
BLOCKED 




It. 6.132 



6-7-84 



o 



o 



MESSAGE QUEUE SPACE ALLOCATION 
(NO REUSE ALLOWEU) 

4 MESSAGE QUEUE DATA SETS 

5 MESSAGE LINES PER BLOCK IN MSG BUFFER D/S 
TEXT + PREFIX = 200 CHARACTERS 

SINGLE PREFIX PER PHYSICAL RECORD 

50,000 INPUT MSGS/DAY (12 HOURS) 

50,000 OUTPUT 

10,000 OF INPUT MSGS ARE MULTIPLE LINE (AVERAGE 5 LINES) 
25,000 OF OUTPUT MSGS ARE MULTIPLE LINE (AVERAGE 10 LINES) 

9 MULTIPLE LINE OSAM (MSG BUFFER) RCDS PER 2314 TRACK 
20 SINGLE LINE OSAM (QCR) RCDS PER 23W TRACK 

INPUT QCR = 50,000 = 2500 TRACKS OR 125 CYL 

20 

OUTPUT QCR = 50,000 = 2500 TRACKS OR 125 CYL 



20 

INPUT MSG BUFFER = 10,000 = 1112 TRACKS OR 56 CYL 

9 

OUTPUT MSG BUFFER ° 25,000x2 = 5,556 TRACKS OR 278 CYL 

9 

TOTAL = 584 CYL 

"t.e.lJS 6-V-85 



MESSAGE QUEUE SPACE ALLOCATION 
(REUSE ALLOWED) 

200 TRANSACTION TYPES 
200 LOGICAL TERMINALS 

AVERAGE HOURLY MESSAGE TURN-OVER 
50,000 



= 21 MESSAGES PROCESSED PER QCB PER HOUR 



12 X 200 

TO RUN 3 HOURS BEFORE REUSE ALLOCATE : 
INPUT OCR 3x21x200 12600 



20 20 

OUTPUT OCR 3x21x200 _ 12600 
20 ~ 20 

INPUT MSG 12600 _ 5150 
5x9 ~ 9 

OUTPUT MSG 12600 



= 630 TRACKS OR 32 CYL 



= 630 TRACKS OR 32 CYL 



= 350 TRACKS OR 18 CYL 



= WOO TRACKS OR 70 CYL 



TOTAL 152 CYL 



't.6.13'» 
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DISK I/O OPERATIONS - WRITING 



1ST 3 HOURS (NO REUSE) 
INPUT OCR 
OUTPUT OCR 
INPUT MESSAGE 
OUTPUT MESSAGE 



TOTAL 



12600 (WRITE) 
12600 (WRITE) 
3150 (WRITE) 
12600 (WRITE) 
iJ0950 



o 



Z.I1U J ijuurvo vi\L.uoi_y 


WRITE 


READ 




(BUILD MSG STRHGS) 
WRITE READ 


INPUT OCR 


12600 


12600 








OUTPUT QCR 


12600 


12600 








I \|PUT MESSAGE 


3150 


3150 




3150 


3150 


OUTPUT MESSAGE 


12600 


12600 




6300 


5300 


SUBTOTAL ^10950 


i»0950 




9450 


9450 


AVERAGE QCR STRING OBTAINED = 


3x21+6x21 
2 


-2 


= 94-2=92 




NUMBER OF QCR SEARCHES = 
iJll X 2 READS = 822 


3x 12600 = 
92 


411 




111 X 1 WRITE = 


= 411 











SUBTOTAL 1233 



o 



TOTAL = 1233 + 40950 + 40950 + 9450 + 9450 = 102,033 



M.fi. 135 
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RECORD LENGTH DISTRIBUTION 




lOOZ 



4.6, 136 
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DATA BASE RECORD 



1 



GENINFO 



o 



A 



PARTROOT 



D 



USEHIST 



STOKSTAT 



BACKORDR 





OCCURRENCE PER 


SEGMENT LENGTH 




DATA BASE 


INCLUDING 2 BYTES 


SEGMENT NAME 


RECORD 


FOR CONTROL 


PARTROOT 


1 


20 


GEN INFO 


H (90% HAVE 4 OR LESS) 


8 


STOKSTAT 


10 (90% HAVE 10 OR LESS) 


15 


USEHIST 


2 


1— 

5 


BACKORDR 


3 (90% HAVE 3 OR LESS) 


20 



A B CD E 

PRIME LRECL - 20 + (4x8) + 10(15 + (2x5) + 3(20) ) + 7 = 909 



o 
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CALCULATED 


LRECL SIZE 


LRECL 'S 


LRECL RANGE 


USED BY IMS/360 


PFR BLOCK 


1739 - 3476 


3476 


1 


1159 - 1738 


1738 


2 


S7d - 1158 


1158 


3 


696 - 869 


869 


4 


580 - 695 


695 


5 



4^ 



V>4 
00 



KEC 1 


REC 2 


REC 3 


REC 4 


REC 5 


REC 6 















I 
< 

I 

o 



—1158— 



-1158—- 



I- -1158- - - 



-1158- - 



-1158 1 



-1158 -- 









BASIC STORAGE REQUIREMENTS 

BYTES 

IMS RESIDENT NUCLEUS (LESS CONTROL BLOCKS ) 60,000 

DATA LANGUAGE/ I ACTION MODULES 12,800 

OSAM ACCESS METHOD MODULES 2,900 

ISAM AND IMS ISAM SIMULATOR MODULES 7,800 

BTAM (LESS DEVICE SUPPORT MODULES) 6,600 

Q 90,100 



o 



4.6.139 
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BTAM DEVICE SUPPORT 



REQUIREMENTS FOR EACH LINE GROUP DESCRIBED AT IMS/350 SYSTEM 
DEFINITION TIME. 



1050 NON-SWITCHED WITHOUT AUTOPOLL 22^ 

1050 NON-SWITCHED WITH AUTOPOLL 234 

1050 SWITCHED 328 

2740 WITH DIAL, TRANSMIT CONTROL, AND CHECKING 304 
2740 WITH STATION CONTROL AND CHECKING 204 

2740 WITH STATION CONTROL, CHECKING, AND AUTOPOLL 224 



c 



if. 6. 140 6-V-92 



I 



o 



o 



CONTROL BLOCKS STORAGE REQUIREfCNTS 

BYTES 

EACH COMMUNICATION LINE AND BUFFER 500 

EACH COMMUNICATION TERMINAL 75 

EACH TRANSACTION TYPE 60 

EACH MESSAGE PROGRAM 500 

EACH OPEN DATA BASE 1,000 



4.6.1m 6-V-93 



ASSUMPTIONS 



MFT-II SYSTEM 



12 nm LINES 

4 1050 LIi€S 

5 OPEN DATA BASES 
15 TOTAL DATA BASES 

2 MESSAGE REGIONS CONCURRENT 

10 PSB's RESIDENT Q 

LARGEST DATA BASE BUFFER IS 3,000 BYTES 

30 PROGRAfiS 

50 TRANSACTION TYPES 

3 m REGIONS 

4 MAX I/O 



4.6.142 ^-V-g^ 



ESTIMATE OF STORAGE REQUIREMENTS 



o 



BASIC STORAGE REQUIREMENTS (60,000 + 30,100) 



27^10 STATION CONTROL, AUTOPOLL AND CHECKING 



1050 NON-SWITCHED WITH AuTOPOLL 



IMS/360 CONTROL BLOCKS 



QCR BUFFER POOL (16 X 176) 



MESSAGE BUFFER POOL (5 X 880) 



1050 AND 2740 OUTPUT BUFFERS (5 X 500) 



DATA BASE BUFFERS 2 (5 X 3000) 



PSB POOL QO X 1,000) 



DMB POOL (2 X 1,000) + G X 500) 



TOTAL 



90,100 

224 

192 

18,000 

2,816 

4,400 

2,500 

30,000 

10,000 

3,500 

161,732 



o 



4.6.1if3 
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CLASS EXERCISES 

Write the necessary IMS/360 Definition Cards to define a system 
to operate in the following environment: 

1 . MVT System 

2. Three message processing regions 

3. Five transaction codes (TRANS01 , through TRANS05) . Each 
invokes a different program (STUDNT01 through STUDNT05 
respectively) • All use the same data base (DI21PART) . 
Priorities and processing limits should be selected by 
the student. 

4. The teleprocessing system consists of three nonswitched 
lines, each with a ^740, and one switched line to 
accommodate a 2740. Line addresses are 032 through 035. 
All terminal addresses are E2. 

5. There is to be one pool-subpool combination v/ith three 
logical terminals (LTERMI , LTERM2, and LTERM3) . 

6. The student is to supply all other necessary information 
to generate a system. 

JCL will be provided by the instructor. 
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5.1 



INSTRUCTORS' NOTE: 

The information contained in this section is for use by the 
instructor in. preparing for a hands-on class and in assignincr the 
class problems. 



Generating A System 

An IMS/360 system must be generated for use in running class 
problems. The following is a list of. considerations in 
generating the system. 

1 . If the system is to be used for teleprocessing by the 
class, transaction codes must be included in system 
definition. 

2. Catalog the procedures to be used by the class. 

3. Allocate adequate space for the DBD, PSB, and Program 
Libraries to be used by the class. 

4. If teleprocessing is to be used, the sample problem 
which accompanies the IMS/36 system should be run to 
ensure proper system, generation. This will entail 
generating the data base to be used by the class along 
with the Data Base Description. 

5. If a teleprocessing system is not generated, the sample 
problem data base description and data base must still 
be generated for use by the class. 

6. If the programs provided in this section of the 
Education Guide are to be used in the class, they should 
be punched and run against the established sample 
problem data base. It will be necessary to generate the 
PSB*s to be used with the proaram. They will be the 
same as the one on page 5.2 8 with the. appropriate 
language specified. 

Assigning Class Problems 

In order to allow the student experience in writing data base 
descriptions, program specification blocks, programs, and system 
definitions, it is suggested that prepunched JCL be given each 
student or student group. This avoids JCL errors and helps 
eliminate the bottleneck at the key punch. A list of the 
suggested JCL can be found on page 5.6. 

The length of the courses taught from this Education Guide does 
not allow a student to v/rite a complete program. For this 
reason, it is suggested that the student be given one of the 
programs which start on page 5.7. He can then be reauired to 
modify the program to perform a specific function. It is 
important to require specific functions of the student. If he is 
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simply given the program and told to modify it as he wishes, it 
is difficult to monitor his progress. 

The COBOL, PL/I, and Assembler language program presented in 
Appendix B are written to run with the sample problem data base 
provided with the IMS/360 system. A write-up of this problem can 
be found in the IMS/360 Systems Operation Manual . A complete 
list of the part numbers in the data base can be found starting 
on page 5.31 . 

The programs beginning on page 5.6 should only be used as 
teaching aids, they should not be used to represent the standard 
means of writing IMS/360 programs. Each of these programs reads 
a card which has the key of the root segment (PARTROOT) punched 
in it, retrieves the PARTROOT and STANINFO segment from the data 
base, prints out the information contained in the segments, and 
reads another card. 

Page 5.20 begins a message processing program which is V7ritten in 
COBOL and a message input/output simulator. The messaae 
processing program does the same functions as the COBOL program 
on page 5.7 but the input now appears to be coming from a 
terminal and the output is directed to a terminal. This 
technique is presented here to allow message processing programs 
to be V7ritten and checked out without any teleprocessing 
equipment. Only COBOL is supplied here. A sim.ilar technique 
could be developed for PL/I or Assembler. Once a message 
processing program is checked out v/ith the simulator, the only 
change required is to call Data Language/I instead of the m.essage 
simulator. Other examples of message processing programs can be 
found in the Systems Operation Manual . 

Machine Time Required 

It is suggested that the instructor run each class problem which 
he plans to assign to the student. Machine time requirements can 
vary widely depending on the equipment available and the mode of 
operation. 

As a guide line, 2 minutes of 36 0/65 time should be allov/ed for 
any COBOL, PL/I, or Assembler jobs to be compiled, link edited 
and executed. Two minutes should also be allowed for DBD or PSB 
generation. System definition runs will require around 5 minutes 
of 360/65 time. 
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Message Simulator 



The message simulator will simulate input from a terminal 
by reading cards and formatting them to look like they came 
from a terminal. Input may be single line or multiple line; 
however, the length of the line is limited to that which can 
be contained in an 80 column card. 

Output to a terminal is also simulated. This is accomplished 
by writing to the system output device (SYSOUT) , 

The format of the calls to the message simulator from the 
program which is being checked out are the same as the calls 
which would be made to Data Language/I for input or output 
to a terminal. The only difference is that the message 
simulator is called instead of Data Language/I, 

The format of the input card is a character count in 1-4, an 
H for header or B for body in 5, the terminal name in 6-13, 
followed by the text. 

The character count in 1-4 should include an additional count 
of 4 for the four characters which normally precede an input 
or output message. 

The output which follows was produced from the message simulator 
which is included in this section. The first line of output 
shows that the message type is IH for input header. Message 
count is 30. The terminal name is TERMOOOl. The call which 
was issued was a Get Unique, 

The second line of output is the actual text of the message. The 
third line shows an insert call to send a message to a terminal. 



MESSAGE TYPE = IH, MESSAGE COUNT = 0030, TERMINAL = TERMOOOl 
PART 023008027 

MESSAGE COUNT = 0068, TERMINAL = TERMOOOl 
DESC=CARD FRONT 



MESSAGE TYPE = , 
PART=023008027 

MESSAGE TYPE = , 



PROC C0DE=46 



GU 



ISRT 



MESSAGE COUNT = 0080, TERMINAL = TERMOOOl ISRT 



INV CODE=A MAKE 0EPT=72-46 PLAN REV NUM= 



MAKE TIME= 26 COMM 
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Assignment of Student Numbers 

Each student should be assigned a number to be used as a suffix 
for all computer runs. This will help identify output and make 
any library entries unique. 

For Data Base Descriptions; 

//DBDGENOl JOB 01 , STUDENTOl ,MSGLEVEL=1 
// EXEC DBDGEN , MBR=DBASE 1 

The underlined number is the student number. JCL for each student 
will be identical except for this number. 

For Program Specification Block Generation: 

//PSBGENOl JOB 01 , STUDENT 01 , MS GLEVEL=1 
// EXEC PSBGEN,MBR=STUDENT01 

The same conventions should be used for compiling, link editing, 
and executing the application program. 
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SUGGESTED JCL FOR STUDENTS 



//DBDGENOl 


JOB 


// 


EXEC 


//C.SYSIN 


DD 


/* 





DATA BASE DESCRIPTION 

01,STUDENT01tMSGLEVEL=0I 
DBDGEN,MBR=DBASE01 



//BATCHOl 


JOB 


//JOBLIB 


DD 


// 


DD 


// 


EXEC 


//C.SYSIN 


DO 


/* 





* 



PROGRAM SPECIFICATION BLOCK 

//PSBGENOl JOB 01»STUDENT0I,MSGLEVEL=01 
// EXEC PSBGEN,MBR=STUDNT01 

//C*SYSIN DD * 



BATCH COMPILE AND GO 

01,STUDENT01,MSGLEVEL=01 
DSN=ICS.LOAD,DISP=SHR 
DSN=CLA.PGMLIB,DISP=SHR 
IMSC0BG0,MBR=STUDNT01 



COMPILE AND LINK 

01tSTUDENT01tMSGLEVEL=01 
IMSC0B0LtMBR=STUDNT01 



IMS/360 SYSTEM DEFINITION 

//IMSDEFOl JOB 01,STUDENT01tMSGLEVEL=01 

// EXEC ASMFC,REGI0N=96K 

//ASM.SYSLIB DD DSN= I CS.MACL I B » DI SP=SHR 

//ASM.SYSPRINT DD SYS0UT=3 

//ASM.SYSPUNCH DD SYS0UT=3 

//ASM.SYSIN DD * 
/* 

ALTERNATIVE PROCEDURES 

// EXEC DLIBATCHtPSB=STUDNT01 

// EXEC IMSPLItMBR=STUDNT01 ^^ 

// EXEC IMSPLIG0»MBR=STUDNT01 (_, 

// EXEC IMSASSEM,MBR=STUDNTOI 
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//MSGPROl 


JOB 


// 


EXEC 


//C.SYSIN 


DD 


/* 





BATCH PROCESSING - COBOL EXAMPLE 
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//BATCH 

//JOBLI 

// 

// 

//C.SYS 

001010 

001020 

001030 

001040 

001050 

001060 

001070 

001080 

001090 

001100 

001110 

001120 

001130 

001140 

001150 

001160 

001170 

001490 

001500 

001510 

01013 

01014 

01015 

01016 

01017 

01020 

02016 

02019 
03001 
03002 

03004 



01 JOB 848TCABANISSfMSGLEVEL=l»MSGCLASS=3,CLASS=A,PRTY=8 
B DD DSN=CLA.PGMLIB,OISP=SHR 

DD DSN=ICS,LOAD,DISP=SHR 

EXEC IMSC0BG0,MBR=STUDNT01 
IN DD * 
IDENTIFICATION DIVISION. 

PROGRAM-ID. • IMSTEST' . 
ENVIRONMENT DIVISION. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT MESSAGE-FILE ASSIGN TO "TESTIN" UTILITY. 

SELECT TEST-OUTPUT-FILE ASSIGN TO »TESTOUT« UTILITY. 
DATA DIVISION. 
FILE SECTION. 



FD 



FD 



MESSAGE-FILE 
RECORDING MODE 
DATA RECORD IS 



IS F 
INPUT-MESSAGE. 



01 INPUT-MESSAGE 

TEST-OUTPUT-FILE 

BLOCK CONTAINS 10 RECORDS 

DATA RECORD IS PRINT-LINE. 

01 PRINT-LINE 

01 TEST-OUTPUT-TEXT. 

02 TEST-OUTPUT-CHAR OCCURS 130 



PICTURE IS X(80) 



PICTURE IS X(133) 



TIMES 

PICTURE 



77 
77 
77 
77 
01 



01 



'GU • 

•GN • 

• ISRT» 

'GE«. 
I t 



VALUE SPACES. 



•PART NUMBER » 



• NOT ON DATABASE* 



WORKING-STORAGE SECTION. 

77 GET-UNIQUE PICTURE XXXX VALUE 
GET-NEXT PICTURE XXXX VALUE 
INSERT PICTURE XXXX VALUE 
SEG-NOT-FOUND PICTURE XX VALUE 
ERROR-SWITCH PICTURE X VALUE 
LINE-OUTPUT. 

02 BLANK-SPACE PICTURE X VALUE 
02 OUTPUT-TEXT PICTURE X{132) 
PART-NOT-FOUND-MSG. 
02 FILLER PICTURE X(12) VALUE 
02 FILL-PART-1 PICTURE X{17). 
02 FILLER PICTURE X(16) VALUE 
01 MESSAGE- IN-WORK-AREA. 
02 CARD-INPUT. 

03 ROOT-KEY PICTURE X(17). 
FIRST-LINE. 

FILLER PICTURE X(5) VALUE »PART=«. 
FILL-PART-2 PICTURE X(17). 

FILLER PICTURE X(7) VALUE • DESC='. 

FILL-DESCR PICTURE X(20). 

FILLER PICTURE X(12) VALUE • PROC CODE= • . 

FILL-PROC-CODE PICTURE XX VALUE SPACES. 
SECOND-LINE. 

FILLER PICTURE X(9) VALUE • INV CODE= • . 

FILL-INV-CODE PICTURE X VALUE SPACE. 

FILLER PICTURE X(12) VALUE • MAKE DEPT=« 



03006 


01 


FI 


03007 




02 
02 


03009 




02 


03010 




02 


03011 




02 


03012 




02 


03014 


01 


SE 


03015 




02 


03016 




02 


03017 




02 
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03018 
03019 
03020 
04001 
04002 
04003 
04004 
04005 
04006 
04012 
04013 
04014 
04015 

05002 
05003 
05004 
05005 
05006 
05007 
05008 
05009 
05010 
05011 
05012 
05013 
05014 



05017 
05018 
05019 
06001 
06002 
06003 
06004 
06005 
06011 
07001 
07002 
07003 
07004 
07005 
07006 
07007 
07008 
07009 
07010 

07012 
07013 
070^14 
08001 
08002 
08003 



01 



01 



01 



01 



01 



LINKAGE 
01 



02 FILL-MAKE-1 PICTURE XX VALUE SPACES. 

02 FILLER PICTURE X VALUE •-•• 

02 FILL-MAKE--2 PICTURE XX VALUE SPACES. 

02 FILLER PICTURE XU5) VALUE • PLAN REV NUM= • 

02 FILL-PLAN-REV-NUM PICTURE XX VALUE SPACES. 

02 FILLER PICTURE X{12) VALUE • MAKE TIME=». 

02 FILL-MAKE-TIME PICTURE ZZZ. 

02 FILLER PICTURE X(12) VALUE • COMM CODE='. 

02 FILL-COMM-CODE PICTURE XXXX VALUE SPACES. 

ROOT-FORMAT. 

02 FILLER PICTURE X(26). 

02 DESCRIPTION PICTURE X(20). 

02 FILLER PICTURE XXXX. 

STANINFO-FORMAT. 

02 FILLER PICTURE X(18). 

02 PROCUREMENT-CODE PICTURE XX. 

02 INVENTORY-CODE PICTURE X. 

02 PLANNING-REVISION-NUMBER PICTURE XX. 

02 FILLER PICTURE X(24). 

02 MAKE-DEPT PICTURE XX, 

02 MAKE-COST-CTR PICTURE XX. 

02 FILLER PICTURE XX. 

02 COMMODITY-CODE PICTURE XXXX. 

02 FILLER PICTURE XXXX. 

02 MAKE-SPAN PICTURE S999. 

02 FILLER PICTURE X{21). 

ROOT-SSA. 

02 FILLER PICTURE X(19) VALUE • PARTROOT ( PARTKEY 

02 FILL-PART-3 PICTURE X(17). 

02 FILLER PICTURE X VALUE •)». 

STANINFO-SSA PICTURE X(22) VALUE 

•STANINFO(STANKEY =02) ». 
STATUS-CODE-MSG. 

02 FILLER PICTURE X(23) VALUE 'UNRESOLVED STATUS CODE «, 
02 FILL-STATUS PICTURE XX. 
02 FILLER PICTURE X(4) VALUE 
02 FILL-FUNCTION PICTURE X(4) 
SECTION. 
DATABASE. 



= I 



ON 



02 DBASE-NAME PICTURE X(8). 
02 SEGMENT-INDR PICTURE XX. 
02 DBASE-STATUS PICTURE XX. 
02 PROC-OPTIONS PICTURE XXXX. 
02 DLI-RESERVED PICTURE XXXX. 
02 SEG-FEEDBACK PICTURE X(8). 
02 KEY-FEEDBACK-LENGTH PICTURE 
02 NO-OF-SENSEG-TYPES PICTURE 
02 KEY-FEEDBACK. 
03 ROOT-KEYl. 

04 FILLER PICTURE XX. 
04 PARTNUM PICTURE X115) 
03 STANINFO-KEY PICTURE XX. 
PROCEDURE DIVISION. 
START-OUT. 

ENTER LINKAGE. 



XXXX. 
XXXX. 
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100069 
09016 
09017 
09018 



10003 



11007 

11009 

11010 

11011 

11012 

11013 

11014 

11015 

11016 

11017 

11018 

11019 

12001 

12003 

12005 

12006 

120061 

12007 

12008 

12009 

12010 

12011 

12012 

12014 

12016 

10005 



08014 



08015 
08016 
08017 



DATABASE, ROOT-FORMATt 



ENTRY 'DLITCBL' USING DATABASE. 
ENTER COBOL. 
OPEN-FILES. 

OPEN INPUT MESSAGE-FILE 
OUTPUT TEST-OUTPUT-FILE. 
READ-MESSAGE-FILE. 

READ MESSAGE-FILE INTO MESSAGE-IN-WORK-AREA 
AT END GO TO EXIT-RTN. 
MOVE ROOT-KEY TO FILL-PART-3. 
ENTER LINKAGE. 
CALL 'CBLTDLI' USING GET-UNIQUE, 

ROOT-SSA. 
ENTER COBOL. 

IF DBASE-STATUS = » • GO TO PROCESS-FIRST-LINE. 
IF DBASE-STATUS NOT = SEG-NOT-FOUND GO TO DBASE-ERROR. 
MOVE ROOT-KEY TO FILL-PART-1. 
MOVE PART-NOT-FOUND-MSG TO OUTPUT-TEXT. 
PERFORM TERM-OUT-RTN. 
GO TO READ-MESSAGE-FILE. 
PROCESS-FIRST-LINE. 

MOVE ROOT-KEY TO FILL-PART-2. 
MOVE DESCRIPTION TO FILL-DESCR. 
MOVE GET-NEXT TO FILL-FUNCTION. 
ENTER LINKAGE. 
CALL 'CBLTDLI* USING GET-NEXT, DATABASE, STANINFO-FORMAT , 

ROOT-SSA, STANINFO-SSA. 
ENTER COBOL. 
IF DBASE-STATUS = • • MOVE PROCUREMENT-CODE TO 

FILL-PROC-CODE, GO TO PROCESS-SECOND-LINE. 
IF DBASE-STATUS = SEG-NOT-FOUND 

PERFORM PROCESS-SECOND-LINE. 
GO TO DBASE-ERROR. 
PROCESS-SECOND-LINE. 

MOVE FIRST-LINE TO OUTPUT-TEXT. 
PERFORM TERM-OUT-RTN. 
EXIT-FR0M-PR0CESS-2ND-LINE. EXIT. 
PTCH-3. 

MOVE INVENTORY-CODE TO FILL-INV-CODE . 
MOVE MAKE-DEPT TO FILL-MAK5-1. 
MOVE MAKE-COST-CTR TO FILL-MAKE-2. 

MOVE PLANNING-REVISION-NUMBER TO FILL-PLAN-REV-NUM. 
MOVE MAKE-SPAN TO FILL-MAKE-TIME. 
MOVE COMMODITY-CODE TO FILL-COMM-CODE. 
MOVE SECOND-LINE TO OUTPUT-TEXT. 
GO TO TERM-OUT-RTN. 
TERM-OUT-RTN. 

WRITE PRINT-LINE FROM LINE-OUTPUT. 
GO-BACK. 

GO TO READ-MESSAGE-FILE. 
EXIT-RTN. 
CLOSE 
CLOSE 
ENTER 



MESSAGE-FILE. 
TEST-OUTPUT-FILE. 
LINKAGE. 



RETURN. 
ENTER COBOL. 
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10.0135 COMMON-ERROR. 

10015 MOVE STATUS-C0D6-MSG TO OUTPUT-TEXT. 

100165 EXIT-FROM-ERROR-HANDLER. EXIT. 

100166 PTCH-2. 

10017 GO TO TERM-OUT-RTN. 

10018 DBASE-ERROR. 

10019 MOVE DBASE-STATUS TO FILL-STATUS. 

10020 GO TO COMMON-ERROR. 
/^ 

//G.DI21PAR0 DD DSN=I MS.DI21PAR0,DISP=SHR, VOL=SER= IMSDBS ,UNIT=2314 

//G.DI21PART DD DSN=IMS.DI21 PART TOISP=SHRt VOL=SER= IMSDBS ,UNIT=2314 

//G.TESTOUT DD SYS0UT=3 

//G.TESTIN DD *,DCB=BLKSI ZE=80 

02252252-003 

023008027 

02300802700000000 

02JAN1N976B 

023007228 

023009225 

02300928 

023009270 

023856124 
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BATCH PROCESSING - PL/I EXAMPLE 



o 



o 



//PLICA 

//JOBLI 

// 

// 

//C.SYS 
DLITPL 
DECLAR 
DECLAR 
DECLAR 
DECLAR 
DECLAR 
DECLAR 
DECLAR 
DECLAR 
DECLAR 



B JOB 848,CABANISS,MSGLEVEL=l»MSGCLASS=3,CLASS=AtPRTY=8 
B DD DSN=ICS.LOAD,DISP=SHR 

DD DSN=CLA.PGMLIB,DISP=SHR 

EXEC IMSPLIG0,MBR=STUDNT03 



IN 

I: 

E 

E 

E 

E 

E 

E 

E 

E 

E 



DECLARE 
DECLARE 

DECLARE 



DECLARE 



DECLARE 



DD * 
PROC(DATABASE) 
GET^UNIOUE 
GET^NEXT 
INSERT 
CARD_IN 
SEG NOT FOUND 



OPTIONS (MAIN) ; 
CHARACTER(4) IN 
CHARACTER(4) IN 
CHARACTER(4) IN 
CHARACTER(80) ; 
CHARACTER(2) IN 



FOUR FIXED BINARY INITIAL(4); 
ERROR_SWITCH CHARACTER(l) IN 
FIVE FIXED BINARY INITIAL(5); 



ITIAL(»GU » 
ITIAL(»GN • 
ITIAL( • ISRT" 

ITIAL( 'GE* ) ; 

ITIAL(» •); 



); 
); 
); 



1 PART_NOT_FOUND_MSG, 



DECLARE 1 



CHARACTER( 

CHARACTER( 

CHARACTERd 



CHARACTER(132) ; 
AREA, 

CHARACTERd?) ; 



2 FILL35 

2 FILL_PART_I 

2 FILL36 
LINE^OUTPUT, 

2 OUTPUT^TEXT 
MESSAGE_IN_WORK_ 

2 CARD_INPUT, 
3 ROOT_KEY 
FIRST^LINE, 

2 FILLl 

2 FILL_PART_2 

2 FILL2 

2 FILL.DESCR 

2 FILL3 

2 FILL_PROC_CODE 
SECOND^LINE, 

2 FILL4 

2 FILL_INV_CODE 

2 FILL5 

2 FILL_MAKE_1 

2 FILL6 

2 FILL_MAKE_2 

2 FILL? 

2 FILL_PLAN_REV_ 

2 FILLS 

2 FILL_MAKE_TIME 

2 FILL9 

2 FILL_COMM_CODE 
ROOT_FORMAT, 

2 FILLIO 

2 DESCRIPTION 

2 FILLll 
STANINFO_FORMAT, 

2 FILL12 

2 PROCUREMENT^CODE CHARACTE 

2 INVENTORY^CODE CHARACTER( 

2 PLANNING REVISION NUMBER 



12) INITIAL 

!?)» 

6) INITIAL(' 



( 'PART NUMBER' ) r 
NOT ON DATABASE* ) ; 



CHARACTER( 
CHARACTER! 
CHARACTER! 
CHARACTER! 
CHARACTER! 
CHARACTER! 

CHARACTER! 
CHARACTER! 
CHARACTER! 
CHARACTER! 
CHARACTER! 
CHARACTER! 
CHARACTER! 
NUM CHARAC 
CHARACTER! 
PICTURE 'Z 
CHARACTER! 
CHARACTER! 

CHARACTER! 
CHARACTER! 
CHARACTER! 



5) INITIAL! 

1?), 

?) INITIAL! 

20) , 

12) INITIAL! 

2) INITIAL! 

9) INITIAL! 

1) INITIAL! 
12) INITIAL! 

2) INITIAL! 

1) INITIAL! 

2) INITIAL! 
15) INITIAL! 
TER!2) INITI 
12) INITIAL! 
ZZ' , 

12) INITIAL! 
4) . INITIAL! 

26) t 
20) , 
4); 



PART=« ) t 
DESC=» ), 

PROC CODE=» ), 

• ) ; 

INV CODE=' ) , 
' )t 
MAKE DEPT=» ) , 

• ), 
-• )» 

• )t 

PLAN REV NUM=« ) , 
AL! • • ) » 

MAKE TIME=» ) t 

COMM CODE=' ) ♦ 

• ); 



CHARACTER!18) , 

R!2) INITIAL 
2) INITIAL 
CHARACTER!2) 



!' • )t 
! » • )t 
INITIAL!* »)t 
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INITIALC 


' )t 


INITIALC 


• • ), 


INITIAK 


• )t 


INITIAK 


• • ), 


INITIAK 


•), 



DECLARE 



DECLARE 
DECLARE 



2 FILL13 CHARACTER(24), 

2 MAKE_DEPT CHARACTER(2) 

2 MAKE COST^CTR CHARACTER(2) 

2 FILLT4 CHARACTER(2) 

2 COMMODITY^CODE CHARACTER(4) 

2 FILL15 CHARACTER(4) 

2 MAKE^SPAN PICTURE 'sgggs 

2 FILL16 CHARACTER(21) ; 
ROOT^SSA, 
2 fTlL17 CHARACTER(19) INIT I AL ( » PARTROOT ( PARTKEY =•)» 

2 FILL_PART_3 CHARACTER ( 1 7 ) , 

2 FILL18 CHARACTER(l) INITIALS)*); 

INITIAL ( 'STANINFOCSTANKEY =02) » ) 



•UNRESOLVED STATUS 
INITIALC •)» 
INITIALC • ON • ) t 



DECLARE 



CHARACTER(8) , 

CHARACTER(2)» 

CHARACTER(2) » 

CHARACTER(4), 

CHARACTER(A) r 

CHARACTER(4) , 

CHARACTER(4) , 
CHARACTER(4) , 



READ CARDS 



CALL^DB 



PROCESS 



STANINFO_SSA CHARACTER ( 22 ) 
1 STATUS_CODE_MSGt 

2 FILL19 CHARACTER(22) I NIT I AL (• UNRESOLVED STATUS CODE » ) t 
2 FILL_STATUS CHARACTER(2) 
2 FILL20 CHARACTER(4) 

2 FILL_FUNCTION CHARACTER(4) 
1 DATABASE, 

2 DBASE^NAME 
2 SEGMENT_INDR 
2 DBASE^STATUS 
2 PROC^OPTIONS 
2 DLI^RESERVED 
2 SEG^FEEDBACK 
2 KEY_FEEDBACK_LENGTH 
2 NO_OF_SENSEG_TYPES 
2 KEY^FEEDBACK, 
3 ROOT^KEYl, 

4 FILL21 CHARACTER{2)» 
4 PARTNUM CHARACTER(15) , 
3 STANINFO^KEY CHARACTER ( 2 ) ; 
GET FILE (TESTIN) EDIT (CARD^IN) ( A ( 80 ) ) ; 
ON ENDFILE (TESTIN) GO TO EXIT^RTN; 
GET STRING (CAROTIN) EDIT ( ROOT^KEY ) ( A ( 1 7 ) ) ; 
FILL_PART_3=R00T_KEY; 
CALL PLITDLI ( FOUR , GET^UNI QUE, DATABASE , ROOT_FORMAT , 

ROOT_SSA) ; 
IF DBASE_STATUS=» • THEN GO TO PROCESS^F IRST_L INE ; 

if dbase_status-^=seg_not_found then go to dbase_error 
fill_part_i=root_key; 
output_text=string(part_not_found_msg) ; 

PUT SKIP FILE (TESTOUT) EDIT ( L INE^OUTPUT ) (A); 
GO TO READ_CARDS; 
FIRST_LINE: FILL_PART_2=R00T_KEY; 

FILL_DESCR=DESCRIPTION; 
FILL_FUNCTION=GET_NEXT; 
CALL PLITDLI ( FI VE ,GET_NEXT t DATABASE , 
STANINFO_FORMAT,ROOT_SSA,STANINFO_SSA) ; 

IF DBASE_STATUS=' • THEN 
FILL_PROC_CODE=PROCUREMENT_CODE; 
GO TO PROCESS_SECOND_LINE; 
IF DBASE_STATUS=SEG_NOT_FOUND THEN 
GO TO PROCESS_SECOND_LINE; 
GO TO DBASE^ERROR; 
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PROCESS 



,SECOND_LINE: 
PUT SKIP 



o 



TERM_OUT_RTN: 

EXIT^RTN: 
C0MM0N_ERR0R: 

DBASE ERROR: 



OUTPUT_TEXT=STRING(FIRST_LINE) ; 

FILE (TESTOUT) EDIT ( L INE^OUTPUT ) (A); 

FILL_INV_CODE=INVENTORY_CODE; 

FILL_MAKE_1=MAKE_DEPT; 

FILL_MAKE_2=MAKE_CGST_CTR; 

fill_plan_rev_num=plannTng_revision_number; 
F ill_make_tTme=make_s pan ; 

FILL_COMM_CODE=COMMODITY_CODE; 
0UTPUT_TEXT=STRING(SEC0ND_LINE) ; 
PUT SKIP FILE (TESTOUT) EDIT ( L INE^OUTPUT ) (A) 
GO TO READ^CARDS; 
RETURN; 

OUTPUT_TEXT=STRING{STATUS_COOE_MSG) ; 
GO TO TERM^OUT RTN; 
FILL_STATUS=DBASE_STATUS; 
GO TO COMMON^ERROR; 



END DLITPLI; 
/* 

//G,DI21PAR0 DD 
//G.DI21PART DD 
//G. TESTOUT DD 
//G.TESTIN DD 
02252252-003 
023008027 
02300802700000000 
02JAN1N976B 
023007228 
023009225 
02300928 
023009270 
023856124 



DSN=IMS.DI21PAR0,DISP=SHR,V0L=SER=IMSDBS,UNIT=2314 
DSN=IMS,DI21PART,DISP = SHR,V0L = SER=IMSDBS,UNIT=:2314 
SYSOUT=3tDCB=BLKSIZE=132 
*,DCB=BLKSIZE=80 



o 
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BATCH PROCESSING - ASSEMBLER EXAMPLE 



//ASGOC 

//JOBLI 

// 

// 

//C.SYS 

DLITCBL 



AB JOB 848»CABANISS,MSGLEVEL=lrMSGCLASS=3,CLASS=AtPRTY=8 
B DD DSN=ICS.LOAD,DISP=SHR 
DD DSN=CLA.PGMLIBfDISP=SHR 

EXEC IMSASSEMtMBR=STU0NT05 
IN DD * 



CSECT 

USING 
PROLOGUE DS 

STM 

LR 

LR 

LA 

ST 

ST 

L 

B 
SAVEOOOl DS 

L 

L 

MVC 

NI 
***OPEN-FILES 

OPEN 

«**RE AD-MESSAGE-FILE 
GETCARD 



*,I2 

OH 

14,12,12(13) 

12,15 

15,13 

13, SAVEOOOl 

15,4(13) 

13,8(15) 

15,16(15) 

SAVEOOOl+72 

18F 

8,SAVE0001+4 

8,24(8) 

PCBPTR(4) ,0(8) 

PCBPTR,X»7F» 



USE A BASE REGISTER 

SAVE REGISTERS 
SET UP BASE REGISTER 
SAVE ADDRESS OF CALLER'S SAVE AREA 
LOAD REGISTER 13 WITH SAVE AREA ADDRESS 
FORWARD CHAIN 
BACK CHAIN 

RESTORE WORKING REGISTER 
BRANCH AROUND SAVE AREA 



ADDRESS 
ADDRESS 



OF 
OF 



PREVIOUS SAVE 
FIRST PCB 



(CARD,( INPUT) , PR I NT, (OUTPUT) ) 



GET CARD, INPUT 

MVC FILLP3,R00TKEY 

MVC FUNCTION, GETUNO 

MVC IOAREA,AROOTFMT 

MVC PC0UNT,=F«4« 

LA 1,TPC0UNT 

CALL CBLTDLI 

L 9,PCBPTR 

CLC 10(2,9) ,=X»4040« 

BE PROFLIN 

CLC 10(2,9) ,SEGNOTF 

BNE DBASEROR 

MVC 0UTTEXT(132) , BLANKS 

MVC FILLP1,R00TKEY 

MVC 0UTTEXT(45) ,PARTNF 

PUT PRINT, BLNKSP 

B GETCARD 



GET INPUT CARD 
MOVE KEY TO SSA 
MOVE FUNCTION CODE 
MOVE 10 AREA TO CALL 



LIST 



GO GET SEGMENT 

ADDRESS OF DATABASE PCB 

GO PROCESS FIRST LINE 
IF STATUS CODE NOT FOR SEGMENT 
NOT FOUND THEN ERROR 



SET UP PRINT FOR SEGMENT 
MOVE TO OUTPUT AREA 

GET NEXT INPUT CARD 



NOT FOUND 



««*PROCESS-FIRST-LINE 
PROFLIN 



MVC FILLP2,R00TKEY 

MVC FILDESCRfDESCRPT 

MVC FILLFUN,GETNEXT 

MVC FUNCTION, GETNEXT 

MVC PC0UNT,=F»5« 

MVC IOAREA,ASTANINF 

MVC OUTTEXT( 132) , BLANKS 

LA 1,TPC0UNT 

CALL CBLTDLI 

L 9tPCBPTR 



SET PARM COUNT TO 5 
SET UP ADDRESS OF 10 

ADDRESS OF PARAMETER 
GO GET SEGMENT 
POINTER TO PCB 



AREA 



LIST 



S.lif 



o 



o 



CLC 


10(2t9) ,=X»4040» 


COMPARE TO BLANKS 


BNE 


JUMPl 




MVC 


FILLPCDrPROCCDE 




B 


PROSECLN 




JUMPl CLC 


10(2t9)r=C»GE» 




BE 


PROSECLN 


SEGMENT NOT FOUND 


B 


DBASEROR 




««*PROCESS-SECOND-LINE 




PROSECLN MVC 


0UTTEXT{63) tFIRSTLN 




PUT 


PRINT, BLNKSP 


PRINT FIRST LINE 


MVC 


FILINVCMKDPT 


SETUP 


MVC 


FILLMK1,MKDPT 


SECOND 


MVC 


FILLMK2,MKC0STCR 


LINE 


MVC 


FILPRNtPLANRVNO 




MVC 


FILMT,MAKSPN 




MVC 


FILCOCD,COMMCODE 




MVC 


0UTTEXT(132) , BLANKS 




MVC 


0UTTEXT(74),SECLINE 




PUT 


PRINT, BLNKSP 




B 


GETCARD 




*»*EXIT-RTN 






EXITRTN CLOSE 


(CARD,, PRINT) 


EXIT 


EPILOGUE DS 


OH 




L 


13,4(13) 


LOAD REGISTER 13 


LM 


14,12,12( 13) 


RESTORE REGISTERS 


MVI 


12(13), X»FF» 


INDICATE RETURN 


LA 


15,0(0,0) 


SET UP RETURN COD 


BR 


14 


RETURN 


*«*COMMON-ERROR 




CERROR MVC 


0UTTEXT(33) ,STATC0MS 


PUT 


PRINT, BLNKSP 




B 


GETCARD 




**DBASE-ERROR 






DBASEROR L 


9,PCBPTR 




MVC 


FILLSTAT,10(9) 




B 


CERROR 




RETURN B 


EXITRTN 




***WORKING STORAGE SECTION 




GETUNO DC 


C»GU • 




GETNEXT DC 


C»GN • 




SEGNOTF DC 


C»GE» 




ERSWTCH DC 


C» • 




^'{'^LINE-OUTPUT 






BLNKSP DC 


C • 




OUTTEXT DC 


CL132' • 




*«*PART~NOT~FOUND-MSG 




PARTNF DC 


C'PART NUMBER • 




FILLPl DS 


CL17 




DC 


C NOT ON DATABASE* 




***MESSAGE-IN- 


WORK-AREA 




INPUT DS 


OF 




ROOTKEY DS 


CL17 




DS 


CL63 




**«FIRST-LINE 






FIRSTLN DC 


C»PART=« 





WITH ADDRESS 
E IN REGISTER 



15 
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FILLP2 


DS 




CL17 




DC 




C» DESC=« 


FILDESCR 


OS 




CL20 




DC 




C» PROC CODE=» 


FILLPCD 


DC 




C« • 


***SECOND-LINE 




SECLINE 


DC 




C'INV CODE=» 


FILINVC 


DC 




C» • 




DC 




C» MAKE DEPT=' 


FILLMKl 


DC 




C» • 




DC 




C»-' 


FILLMK2 


DC 




c» • 




DC 




C» PLAN REV NUM=» 


FILPRN 


DC 




C» » 




DC 




C» MAKE TIME=» 


FILMT 


DC 




C» • 




DC 




C» COMM CODE=» 


FILCOCD 


DC 




C» • 


**«ROOT-- 


FORMAT 




ROOTFMT 


DS 




CL26 


DESCRPT 


DS 




CL20 




DC 




C • 


***STANINFO- 


FORMAT 


STANINF 


DS 




CL18 


PROCCDE 


DC 




C» • 


INVCOOE 


DC 




c» • 


PLANRVNO 


DC 




c« • 




DS 




CL24 


MKDPT 


DC 




C» • 


MKCOSTCR 


DC 




c» • 




DS 




CL2 


COMMCODE 


DC 




C» • 




DS 




CL4 


MAKSPN 


DS 




CL4 




DS 




CL21 


***ROOT-! 


5SA 






ROOTSSA 


DC 




C»PARTROOT(PARTKEY =» 


FILLP3 


DS 




CL17 




DC 




C» ) • 


PCOUNT 


DS 




F 


TPCOUNT 


DC 




A (PCOUNT) 




DC 




A(FUNCTION) 


PCBPTR 


DS 




F 


lOAREA 


DS 




F 


FLAGl 


DC 




A(ROOTSSA) 


FLAG2 


DC 




A(STANISSA) 


FUNCTION 


DS 




CL4 


AROOTFMT 


DC 




A(ROOTFMT) 


ASTANINF 


DC 




A(STANINF) 


BLANKS 


DC 




CL132« • 


***STANINFO- 


SSA 


STANISSA 


DC 




C»STANINFO(STANKeY =02 ) • 


***STATUS-CODE 


-MSG 


STATCOMS 


DC 




C'UNRESOLVED STATUS CODE • 


FILLSTAT 


DC 




C» • 
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DC C« ON • 
FILLFUN DC C» • 
CARD DCB BLKSIZE=80,BUFL=160,DDNAMe=TESTIN,DSORG=PS,EODAD=RETURN,X 

LRECL=80,MACRF=GM,RECFM=F 
PRINT DCB DDNAME=TESTOUT,DSORG=PS,MACRF=PM,LRECL=133tRECFM=FA 
**«LINKAGE SECTION 



DBPCB 

DBDNAME 

SEGLEVEL 

STATCODE 

PROCOPTS 

RESVDLI 

SEGNAME 

LGTHFDBK 

NOSENSEG 

KEYFDBK 



DSECT 

DS 

DS 

DS 

DS 

DS 

DS 

DS 

DS 

DS 

END 



CL8 
CL2 
CL2 
CL4 
CL4 
CL8 
CL4 
CL4 
CL19 



//L.SYSLIN DD 

// DD 

// DD 

// EXEC 

//G.DI21PAR0 

//G.DI21PART 

//G.TESTOUT DD 

//G.TESTIN DD 

02252252-003 

023008027 

02300802700000000 

02JAN1N976B 

023007228 

023009225 

02300928 

023009270 

023856124 



DSN=&aLINtDISP={ OLD, DELETE) 
DSN=ICS.PROCLIB(DLITCBL),DISP=SHR 
DDNAME=SYSIN 
DLIBATCHtPSB=STUDNT05 

DD DSN=IMS*DI21PAR0,DISP=SHR,V0L=SER=IMSDBStUNIT=2314 
DD DSN=IMS,DI21PART,DISP=SHR,V0L=SER=IMSDBS,UNIT=2314 
SYS0UT=3tDCB=BLKSIZE=133 
*,DCB=BLKSIZE=80 



o 
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FIELD DEFINITIONS FOR DATA BASE SEGMENTS 



000980 01 SEG-RET-AReA. 

001000 02 FILLER PICTURE X(02). 

001020 02 PART-NO PICTURE X(15). 

001040 02 FILLER PICTURE X(09). 

001060 02 DESC PICTURE X(15). 

001080 02 FILLER PICTURE X(119). 

001100 01 STAN-INFO-RET REDEFINES SEG-RET-AREA . 

001120 02 FILLER PICTURE X(18). 

001140 02 PROC-CODE PICTURE XX. 

001160 01 STOCK-STATUS-RET REDEFINES STAN- INFO-RET . 

001180 02 FILLER PICTURE XX. 

001200 02 SS-AREA PICTURE, X. 

001220 02 SS-DEPT PICTURE XX. 

001240 02 SS-PROJ PICTURE XXX. 

001260 02 SS-DIV PICTURE XX. 

001280 02 FILLER PICTURE X(10). 

001300 02 SS-UNIT-PRICE PICTURE 9(6)V999. 

001320 02 FILLER PICTURE X(05). 

001340 02 SS-UNIT-OF-MEAS PICTURE X(04). 

001360 02 FILLER PICTURE X(33). 

001380 02 SS-STOCK-DATE PICTURE X(03). 

001400 02 FILLER PICTURE X{15). 

001420 02 SS-CUR-REOMTS-1 PICTURE S9(7)V9. 

001440 02 SS-UNPL-REOMTS PICTURE S9(7)V9. 

001460 02 SS-ON-ORDER PICTURE S9(7)V9. 

001480 02 SS~IN-STOCK PICTURE S9{7)V9. 

001500 02 SS-PLAN-DISB PICTURE S9(7)V9. 

001520 02 SS-UNPL-DISB PICTURE S9(7)V9. 

001540 02 FILLER PICTURE X(23). 

001560 01 BACK-ORDER-RET REDEFINES STOCK-STATUS-RET. 

001580 02 FILLER PICTURE X(02). 

001600 02 WORK-ORDER PICTURE X(08). 

001620 02 FILLER PICTURE X(53). 

001640 02 WO-OTY PICTURE S9(07)V9. 

001660 01 CYCLE-COUNT-RET REDEFINES BACK-ORDER-RET. 

001680 02 FILLER PICTURE X(02). 

001700 02 PHYSICAL-COUNT PICTURE S9(07)V9. 

001720 02 FILLER PICTURE X(04). 

001740 02 TOTAL-STOCK PICTURE S9(07)V9. 



The above COBOL field definitions may be used if one desires 
to print out segments other than the PARTROOT and STANINFO 
segments of the sample problem data base. 
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SAMPLE OUTPUT 



THE OUTPUT PRESENTED BELOW IS INDICATIVE OF THE OUTPUT 
WHICH CAN BE EXPECTED FROM THE PRECEDING COBOL, PL/L 
OR ASSEMBLER PROGRAM, 



PART=0?252252-003 DESC=COUPL ING PROC C0DF=74 

INV C0DE=2 MAKE DEPT=20-0 PLAN REV NUM= MAKE TIME=300 COMM C0D£=6 

PART=023008027 DeSC=CARD FRONT PRQC C0DE=46 

INV COOE=A MAKE DePT=24-6 PLAN REV NUM= MAKE TIME=600 COMM C0DE=4 

PART NUMBER 02300802 700000000 NOT ON DATABASE 

PART=02JAN1N976B DESC=DIODE CODE-A PROC C0DE=74 

INV CQ0E-=2 MAKE DePT = 20-0 PLAN REV NUM= MAKE TIME=300 COMM C0DE=2 

PART=023007228 DESC=HaUSING PRQC C0DE=22 

INV CGDE=2 MAKE 0EPT=20-0 PLAN REV NUM= MAKE TIME= COMM C0DE=4 

PART NUMBER 023009225 NOT ON DATABASE 

PART NUMBER 02300928 NOT ON DATAFiASE 

PART=023009270 DESC=HOUSING PROC CODE=22 

INV C0DE=2 MAKE DEPT=20-0 PLAN REV NUM= MAKE TIME= COMM C0DE=8 

PART NUMBER 023856124 NOT ON DATABASE 
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COBOL MESSAGE PROCESSING PROGRAM WITH MESSAGE SIMULATOR 

//EXEC02 JOB 848,CABANISSfMSGLEVEL=l»MSGCLASS=3tCLASS=A,PRTY=8 
//JOBLIB DD DSN=CLA.PGMLIB,DISP=SHR 
// DD DSN=ICS.LOAD,DISP=SHR 
// EXEC IMSCOBOL,MBR=CAB01 

//C.SYSIN DD * 

IDENTIFICATION DIVISION, 
PROGRAM-ID* »CAB» . 
ENVIRONMENT DIVISION, 
DATA DIVISION. 
WORKING-STORAGE SECTION. 
01 A PICTURE X(24) . 
LINKAGE SECTION. 
01 DB-PCB. 

02 DATA-BAS-DESC PICTURE X(71). 
PROCEDURE DIVISION. 
ENTER LINKAGE. 

ENTRY 'DLITCBL' USING DB-PCB. 
ENTER COBOL. 
ENTER LINKAGE. 

CALL 'TEST* USING A, DB-PCB. 
ENTER COBOL. 
STOP RUN. 
/* 

// EXEC IMSC0B0L,MBR=CAB02 

//C.SYSIN DD * 

01001 IDENTIFICATION DIVISION. 

01002 PROGRAM-ID. 'CLASSEX* 

01004 REMARKS. IMS DEMONSTRATION OF TERMINAL ABILITY 

01005 TO DISPLAY A PART NUMBER SEGMENT AND 

01006 SOME OF ITS STANDARD INFORMATION WHICH 

01007 ARE ON AN IMS ISAM/OSAM INVENTORY DATABASE. 

01008 ENVIRONMENT DIVISION. 

01009 CONFIGURATION SECTION. 

01010 SOURCE-COMPUTER. IBM-360. 

01011 OBJECT-COMPUTER. IBM-360. 

01012 DATA DIVISION. 

01013 WORKING-STORAGE SECTION. 

01014 77 GET-UNIOUE PICTURE XXXX VALUE • GU •• 

01015 77 GET-NEXT PICTURE XXXX VALUE • GN •. 

01016 77 INSERT PICTURE XXXX VALUE 'ISRT*. 

01017 77 SEG-NOT-FOUND PICTURE XX VALUE 'GE*. 

01019 77 NO-MSG-THERE PICTURE XX VALUE • OC • . 

01020 77 ERROR-SWITCH PICTURE X VALUE • •. 

02012 01 LINE-INPUT. 

02013 02 INPUT-COUNT PICTURE S99 COMPUTATIONAL. 

02014 02 FILLER PICTURE S99 COMPUTATIONAL. 
02 TRAN-SACT PICTURE X(8). 

02 FILLER PICTURE X. 

02 ROOT-KEY PICTURE X(17). 

02 INPUT-TEXT PICTURE X(106) VALUE SPACES. 

02016 01 LINE-OUTPUT. 4 

02017 02 OUTPUT-COUNT PICTURE S99 COMPUTATIONAL. 

02018 02 FILLER PICTURE S99 COMPUTATIONAL VALUE ZERO 
020185 02 CARR-RETURN PICTURE X VALUE 'N*. 

02019 02 OUTPUT-TEXT PICTURE X(132) VALUE SPACES. 
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c^ 



03001 
03002 

03004 
03005 
03006 
03007 

03009 
03010 
03011 
03012 
03013 
03014 
03015 
03016 
03017 
03018 
03019 
03020 
04001 
04002 
04003 
04004 
04005 
04006 
04007 
04008 
04009 
04010 
04011 
04012 
04013 
04014 
04015 
04020 
05001 
05002 
05003 
05004 
05005 
05006 
05007 
05008 
05009 
05010 
05011 
05012 
05013 
05014 



05017 
05018 
05019 



01 



01 



01 



01 



01 
01 



02 
02 
02 



02 
02 
02 
02 
02 
02 



VALUE 

X(17). 

VALUE 



•PART NUMBER 



• NOT ON DATABASE* 



PART-NOT-FOUND-MSG. 

02 FILLER PICTURE X(12) 

FILL-PART-1 PICTURE 

FILLER PICTURE X(16) 

CR-1 PICTURE X. 
FIRST-LINE. 
02 FILLER PICTURE X(5) 

FILL-PART-2 PICTURE 

FILLER PICTURE X(7) 

FILL-DESCR PICTURE X(20). 

FILLER PICTURE X(12) VALUE • PROC CODE= • 

FILL-PROC-CODE PICTURE XX VALUE SPACES. 

CR-2 PICTURE X. 



VALUE 
X(17) 
VALUE 



•PART=« 



• DESC=» 



01 SECOND-LINE. 

02 FILLER PICTURE X(9) VALUE • INV CODE= • . 

02 FILL-INV-CODE PICTURE X VALUE SPACE. 

02 FILLER PICTURE X(12) VALUE « MAKE DEPT=«. 

02 FILL-MAKE-1 PICTURE XX VALUE SPACES. 

02 FILLER PICTURE X VALUE •-«. 

02 FILL-MAKE-2 PICTURE XX VALUE SPACES. 

02 FILLER PICTURE X(15) VALUE » PLAN REV NUM= • 

02 FILL-PLAN-REV-NUM PICTURE XX VALUE SPACES. 

02 FILLER PICTURE X(12) VALUE • MAKE TIME=». 

02 FILL-MAKE-TIME PICTURE ZZZ. 

02 FILLER PICTURE X(12) VALUE • COMM CODE=«. 
FILL-COMM-CODE PICTURE XXXX VALUE SPACES. 



02 

02 CR-3 PICTURE X. 

NO-STANINFO-MSG. 

02 FILLER PICTURE X(29) 

VALUE 'THERE IS NO 
02 CR-4 PICTURE X. 
ROOT-FORMAT. 

02 FILLER PICTURE X(26). 
02 DESCRIPTION PICTURE X(20). 
02 FILLER PICTURE XXXX. 
STAN INFO-FORMAT-DEFINITION PICTURE 
STANINFO-FORMAT REDEFINES STANINFO 



STANINFO SEGMENT.' 



X(85) VALUE SPACES. 
■FORMAT-DEFINITION. 



02 FILLER PICTURE X(18). 

02 PROCUREMENT-CODE PICTURE XX. 

02 INVENTORY-CODE PICTURE X. 

02 PLANNING-REVIS ION-NUMBER PICTURE 

02 FILLER PICTURE X(24). 

02 MAKE-DEPT PICTURE XX. 

02 MAKE-COST-CTR PICTURE XX. 

02 FILLER PICTURE XX. 

02 COMMODITY-CODE PICTURE XXXX. 

02 FILLER PICTURE XXXX. 

02 MAKE-SPAN PICTURE S999. 

02 FILLER PICTURE X(21). 
01 ROOT-SSA. 

02 FILLER PICTURE X(19) VALUE 

02 FILL-PART-3 PICTURE X(17). 

02 FILLER PICTURE X VALUE »)«. 
01 STANINFO-SSA PICTURE X(22) VALUE 

»STANINFO(STANKEY =02) • 



XX. 



•PARTROOT(PARTKEY 



= 9 
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06001 
0600? 
06003 
0600A 
06005 
06006 
06011 
06012 
06013 
06014 
06015 
06016 
06017 
06018 
06019 
06020 
07001 
07002 
07003 
07004 
07005 
07006 
07007 
07008 
07009 
07010 

07012 
07013 
07014 
08001 
08002 
08003 
08004 
08005 

08009 
08010 
08011 
08012 
08013 
08014 
08015 
08016 
08017 
08018 

09015 
09016 
09017 
09018 
09019 
09020 

10002 



01 STATUS-CODE~MSG. 

02 FILLER PICTURE X(23) VALUE 
02 FILL-STATUS PICTURE XX. 
02 FILLER PICTURE X(4) VALUE • 
02 FILL-FUNCTION PICTURE X{4). 
02 CR-5 PICTURE X. 



•UNRESOLVED STATUS COL. 



ON 



LINKAGE 
01 



SECTION. 
TERMINAL 



X(8) 

XX. 

XX. 



02 LTERM-NAME PICTURE 

02 FILLER PICTURE 

02 TERM-STATUS PICTURE 

02 TERM-PREFIX. 

03 FILLER PICTURE X. 
03 JULIAN-DATE PICTURE S9(5) 
03 TIME-OF-DAY PICTURE S9(7) 
03 FILLER PICTURE XXXX. 
01 DATABASE. 



COMPUTATIONAL-3. 
COMPUTATIONAL-3. 



02 DBASE-NAME PICTURE X(8). 
02 SEGMENT-INDR PICTURE XX. 
02 DBASE-STATUS PICTURE XX. 
02 PROC-OPTIONS PICTURE XXXX. 
02 DLI-RESERVED PICTURE XXXX. 
02 SEG-FEEDBACK PICTURE X(8). 
02 KEY-FEEDBACK-LENGTH PICTURE XXXX. 
02 NO-OF-SENSEG-TYPES PICTURE XXXX. 
02 KEY-FEEDBACK. 
03 ROOT-KEYl. 

04 FILLER PICTURE XX. 
04 PARTNUM PICTURE X( 15 ) . 
03 STANINFO-KEY PICTURE XX. 
PROCEDURE DIVISION. 
START-OUT. 

ENTER LINKAGE. 

ENTRY 'TEST* USING TERMINAL, DATABASE. 
ENTER COBOL. 
READ-MESG-FILE. 

ENTER LINKAGE. 

CALL 'GEORGEI* USING GET-UNIQUE, TERMINAL, LINE-INPUT 
ENTER COBOL. 
IF TERM-STATUS 
IF TERM-STATUS 
EXIT-RTN. 

ENTER LINKAGE. 

RETURN. 
ENTER COBOL. 
TERM-OK. 
MOVE 
ENTER 
CALL 'CBLTDLI* USING GET-UNIQUE, DATABASE, ROOT-FORMAT 



= • • GO TO TERM-OK. 

NOT = NO-MSG-THERE GO TO ERROR-HANDLER 



ROOT-KEY 
LINKAGE. 
•CBLTDLI 



TO FILL-PART-3. 



USING GET-UNIQUE, 
ROOT-SSA. 
ENTER COBOL. 

IF DBASE-STATUS = • • GO TO PROCESS-FIRST-LINE. 
IF DBASE-STATUS NOT = SEG-NOT-FOUND GO TO DBASE-ERROR 
MOVE ROOT-KEY TO FILL-PART-1. 
MOVE CARR-RETURN TO CR-1. 
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V_^' 



o 



c 



10003 

10004 

10005 

10006 

100069 

10007 

10008 

100085 

100086 

10009 

10010 

10011 

10012 

10013 

100135 

10014 

10015 

10016 

100165 

100166 

10017 

10018 

10019 

10020 

11007 

11009 

11010 

11011 

11012 

11013 

11014 

11015 

11016 

11017 

11018 

11019 

12001 

12002 

12003 

12004 

12005 

120055 

120056 

120057 

12006 

120061 

12007 

12008 

12009 

12010 

12011 

12012 

12013 

12014 



USING INSERTr TERMINALt LINE-OUTPUT. 



EXIT. 



TO 



FILL-STATUS. 

STATUS-C0DE-MS6 UPON 



MOVE PART-NOT-FOUND-MSG TO OUTPUT-TEXT. 
MOVE 50 TO OUTPUT-COUNT. 
TERM-OUT-RTN. 

MOVE INSERT TO FILL-FUNCTION. 
ENTER LINKAGE. 
CALL 'GEORGEI* 
ENTER COBOL. 
EXIT-FROM-TERM-OUT. 
PTCH-1. 

GO TO READ-MESG-FILE. 
ERROR-HANDLER. MOVE TERM-STATUS 

IF ERROR-SWITCH NOT = • • DISPLAY 

CONSOLE, GO TO EXIT-RTN. 
MOVE 'E* TO ERROR-SWITCH. 
COMMON-ERROR. 

MOVE CARR-RETURN TO CR-5. 
MOVE STATUS-CODE-MSG TO OUTPUT-TEXT. 
MOVE 38 TO OUTPUT-COUNT. 
EXIT-FROM-ERROR-HANDLER. EXIT. 
PTCH-2. 

GO TO TERM-OUT-RTN. 
DBASE-ERROR. 

MOVE DBASE-STATUS TO 
GO TO COMMON-ERROR. 
PROCESS-FIRST-LINE. 
MOVE ROOT-KEY TO 
MOVE DESCRIPTION 
MOVE GET-NEXT TO 
ENTER LINKAGE. 
CALL 'CBLTDLI» USING GET-NEXT, DATABASE, ST ANINFO-FORMAT , 

ROOT-SSA, STANINFO-SSA. 
ENTER COBOL. 

IF DBASE-STATUS = • • MOVE PROCUREMENT-CODE TO 
FILL-PROC-CODE, GO TO PROCESS-SECOND-LINE. 
DBASE-STATUS = SEG-NOT-FOUND 

PERFORM PROCESS-SECOND-LINE, GO TO EXIT-RTN. 
TO DBASE-ERROR. 
PROCESS-SECOND-LINE. 

MOVE CARR-RETURN TO CR-2. 

MOVE FIRST-LINE TO OUTPUT-TEXT. 

MOVE 68 TO OUTPUT-COUNT. 

PERFORM TERM-OUT-RTN. 

IF TERM-STATUS NOT = » • PERFORM ERROR-HANDLER THRU 

COMMON-ERROR, PERFORM TERM-OUT-RTN. 
IF TERM-STATUS NOT = ' » GO TO ERROR-HANDLER. 
EXIT-FR0M-PR0CESS-2ND-LINE. EXIT. 
PTCH-3. 

INVENTORY-CODE TO FI LL-INV-CODE . 
MAKE-DEPT TO FILL-MAKE-1. 
MAKE-COST-CTR TO FILL-MAKE-2. 

PLANNING-REVISION-NUMBER TO F ILL-PLAN-REV-NUM. 
MAKE-SPAN TO FILL-MAKE-TIME. 
COMMODITY-CODE TO F ILL-COMM-CODE. 
CARR-RETURN TO CR-3. 
SECOND-LINE TO OUTPUT-TEXT. 



FILL-STATUS. 



FILL-PART-2. 
TO FILL-DESCR. 
FILL-FUNCTION. 



IF 



GO 



MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
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12015 MOVE 80 TO OUTPUT-COUNT. 

12016 GO TO TERM-OUT-RTN. 
/* 

// EXEC IMSC0B0L,MBR=CAB03 

//C.SYSIN DD * 

001010 IDENTIFICATION DIVISION. 

001020 PROGRAM-ID. "IMSTEST*. 

001030 ENVIRONMENT DIVISION. 

001040 INPUT-OUTPUT SECTION. 

001050 FILE-CONTROL. 

001060 SELECT MESSAGE-FILE ASSIGN TO »TESTIN' UTILITY. 

001070 SELECT TEST-OUTPUT-FILE ASSIGN TO 'TESTOUT* UTILITY 

001080 DATA DIVISION. 

001090 FILE SECTION. 

001100 FD MESSAGE-FILE 

001110 RECORDING MODE IS F 

001120 DATA RECORD IS INPUT-MESSAGE. 

001130 01 INPUT-MESSAGE PICTURE IS X(80). 

001140 FD TEST-OUTPUT-FILE 

001150 BLOCK CONTAINS 10 RECORDS 

001160 DATA RECORD IS PRINT-LINE. 

001170 01 PRINT-LINE PICTURE IS X(133). 

001180 WORKING-STORAGE SECTION. 

001190 77 OPEN-SWITCH PICTURE X VALUE • '. 

001200 77 END-SWITCH PICTURE X VALUE • '. 

001210 77 MESSAGE-SIZE-WORK PICTURE S9(4) VALUE 

001220 USAGE COMPUTATIONAL. 

001230 77 BAD-FUNCTION-CODE PICTURE XX VALUE »0A'. 

001240 77 NO-DATA-CODE PICTURE XX VALUE ' QC » . 

001250 77 REC-SWT PICTURE X VALUE • ». 

001260 77 MESS-OUT PICTURE X VALUE • ». 

001261 77 C-329 PICTURE S9(6) VALUE 329 

001262 USAGE COMPUTATIONAL. 
001270 01 MESSAGE-IN-WORK-AREA. 

001280 02 HEADER-DATA-IN. 

001290 03 MESSAGE-COUNT PICTURE 9(4). 

001300 03 MESSAGE-TYPE PICTURE X. 

001310 03 TERMINAL-NAME PICTURE X(8). 

001320 02 MESSAGE-TEXT. 

001330 03 FILLER PICTURE X OCCURS 67 TIMES. 

001350 01 TEST-OUTPUT-HEADER. 

001360 02 FILLER PICTURE X(18) VALUE 

001370 • MESSAGE TYPE = ». 

001380 02 FILLER. 

001390 03 IN-OR-OUT-MESSAGE PICTURE X. 

001400 03 HEAD-OR-BODY PICTURE X. 

001410 02 FILLER PICTURE X(18) VALUE 

001420 », MESSAGE COUNT = ». 

001430 02 OUTPUT-COUNT ' PICTURE 9999. 

001440 02 FILLER PICTURE X(13) VALUE 

001450 • , TERMINAL = • . 

001460 02 OUTPUT-TERMINAL PICTURE X(8). 

001470 02 FILLER PICTURE XX VALUE SPACES. 

001480 02 OUT-FUN PICTURE XXXX. 

001490 01 TEST-OUTPUT-TEXT. 
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001500 
001510 
001520 
001530 
001540 
001550 
001560 
001570 
001580 
001590 
001600 
001610 
001620 
001630 
001650 
001660 
001670 
001680 
001690 
001700 
001705 
001710 
001720 
001730 
001740 
001750 
001760 
001770 
001780 
001790 
001806 
001810 
001820 
001830 
001840 
001850 
001860 
001870 
001880 
001890 
001900 
001910 
001920 
001930 
001940 
001950 
001960 
001990 
002000 
002010 
002020 
002040 
002050 
002060 
002070 



02 TEST-OUTPUT-CHAR OCCURS 130 



TIMES 

PICTURE 



LINKAGE SECTION* 

01 INOUT-PCB. 

02 lO-TERMINAL PICTURE X(8), 

02 lO-RESERVE PICTURE XX. 

02 lO-STATUS PICTURE XX, 

02 I-PREFIX PICTURE X(12). 
01 FUNCTION PICTURE XXXX. 
01 lO-AREAS-RECORO. 

02 RCC PICTURE S9(4) USAGE COMPUTATIONAL. 

02 RCC-ZEROS PICTURE XX. 
02 TEXT. 

03 FILLER PICTURE X OCCURS 130 TIMES. 
PROCEDURE DIVISION. 
ENTER LINKAGE. 

ENTRY 'GEORGEI* USING FUNCTION, INOUT-PCB, lO-AREAS-RECORD, 
ENTER COBOL. 
OPEN-FILES. 

IF OPEN-SWITCH = »1« 
MOVE TO TALLY. 
OPEN INPUT MESSAGE-FILE 

OUTPUT TEST-OUTPUT-FILE. 
OPEN-SWITCH. 



GO TO PROCESS-X. 



= 'GU • 
= 'GN » 
= MSRT* 



GO TO GET-HEADER. 
GO TO GET-BODY. 
GO TO WRITE-REPLY. 
TO lO-STATUS. 



MOVE '1« TO 
PROCESS-X. 

IF FUNCTION 

IF FUNCTION 

IF FUNCTION 

MOVE BAD-FUNCTION-CODE 
RETURN-TO-APPLICATION. 

ENTER LINKAGE. 

RETURN. 

ENTER COBOL. 
FORMAT-INPUT-MESSAGE. 

MOVE M* TO IN-OR-OUT-MESSAGE. 

MOVE MESSAGE-TYPE TO HEAD-OR-BODY. 

MOVE MESSAGE-COUNT TO OUTPUT-COUNT. 

MOVE TERMINAL-NAME TO 

MOVE MESSAGE-TEXT TO 



OUTPUT-TERMINAL. 
TEST-OUTPUT-TEXT. 



TERMINAL-NAME 
MESSAGE-TEXT 
SET-UP-FOR-USER. 

MOVE MESSAGE-COUNT TO RCC. 
MOVE LOW-VALUES TO RCC-ZEROS. 
MOVE TERMINAL-NAME TO lO-TERMINAL. 
MOVE MESSAGE-TEXT TO TEXT. 
MOVE • • TO lO-STATUS. 
READ-MESSAGE-FILE. 

IF END-SWITCH = 'l' GO TO FINISH-UP. 
READ MESSAGE-FILE INTO MESSAGE-IN-WORK-AREA 
AT END MOVE 'l* TO END-SWITCH 
GO TO READ-MESSAGE-FILE. 
COMPUTE MESSAGE-SIZE-WORK = MESSAGE-COUNT - 
PERFORM FORMAT-INPUT-MESSAGE. 
PERFORM WRITE-TEST-OUTPUT-FILE. 
WRITE-TEST-OUTPUT-FILE. 
MOVE FUNCTION 



4. 



TO OUT-FUN. 



5,25 



WRITE PRINT-LINE 
WRITE PRINT-LINE 
GET-HEADER. 

IF REC-SWT NOT = 
PERFORM 



002080 

002090 

002100 

002110 

002130 

002150 

002170 

002180 

002190 

002200 

002210 

002220 

002230 

002240 

002250 

002260 

002270 

002280 

002290 

002300 

002310 

002320 

002330 

002340 

002350 

002360 

002370 

002380 

002390 

002400 

002410 

002420 

002430 

002440 

/* 

// 

//L.SYSLMOD 

//L.SYSOBJ 

// DD 

//L.SYSIN DD 

INCLUDE 

INCLUDE 

INCLUDE 

ENTRY 

NAME 



FROM TEST-OUTPUT-HEADER. 
FROM TEST-OUTPUT-TEXT. 



•H» 

READ-MESSAGE-FILE 
GO TO REC-GOT. 

MESSAGE-SIZE-WORK = MESSAGE-COUNT - 
FORMAT- INPUT-MESSAGE. 
WRITE-TEST-OUTPUT-FILE. 



COMPUTE 
PERFORM 
PERFORM 
REC-GOT. 

IF MESSAGE-TYPE NOT = TO 'H* GO TO 
PERFORM SET-UP-FOR-USER. MOVE • • 
GO TO RETURN-TO-APPLICATION. 
GET-BODY. 

PERFORM READ-MESSAGE-FILE. 
IF MESSAGE-TYPE = 'B* NEXT SENTENCE 
MOVE 'H* TO REC-SWT 
MOVE 'OD' TO lO-STATUS 
GO TO RETURN-TO-APPLICATION. 
PERFORM SET-UP-FOR-USER. 
GO TO RETURN-TO-APPLICATION. 
WRITE-REPLY. 

MOVE lO-TERMINAL TO OUTPUT-TERMINAL. 

COMPUTE MESSAGE-SIZE-WORK = RCC - 



4. 



GET-HEADER. 
TO REC-SWT. 



ELSE 



4. 



RCC TO OUTPUT-COUNT. 
•0» TO IN-OR-OUT-MESSAGE. 
• » TO HEAD-OR-BODY. 
TEXT TO TEST-OUTPUT-TEXT. 
MESS-OUT TO lO-STATUS. 
WRITE-TEST-OUTPUT-FILE. 



MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
PERFORM 
FINISH-UP. 

IF FUNCTION = 'GU • MOVE • OC • 
IF FUNCTION = 'GN • MOVE 'OD' 
GO TO RETURN-TO-APPLICATION. 



TO lO-STATUS. 
TO lO-STATUS. 



EXEC 



IMSLINK 
DD DSN=CLA.PGMLIB,DISP=SHR 
DD DSN=CLA.PGMLIBtDISP=SHR 
DSN=ICS.LOAD,DISP=SHR 
* 

SYSOBJ(CABOl) 
SYS0BJ(CAB02) 
SYS0BJ(CAB03) 
DLITCBL 

STUDNT02(R) 



/* 

// EXEC DLIBATCH,PSB=STUDNT02 

// DD DSN=ICS.DBDLIBtDISP=SHR 

//G.IMS DD DSN=CLA.PSBLIB»DISP=SHR 

//G.DI21PAR0 DD DSN=IMS.DI21PAR0, DISP=SHRt VOL=SER= IMSDBS ,UNIT 

//G.DI21PART DD DSN= IMS.DI 21 PART ,DISP=SHR, VOL = SER=IMSDBS tUNIT 

//G.TESTOUT DD SYS0UT=3 

//G.TESTIN DD *tDCB=BLKSI ZE=80 

0030HTERM0001PART 023008027 

0030HTERM0002PART 023009228 



= 2314 
2314 
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0030HTERM0003PART 0268663-104 

0030HTERM0004PART 02652540-002 

0030HTERM0008PART 02989036-001 

0030HTERM0005PART 02975105-001 

0030HTERM0023PART 02974810-010 

0030HTERM0099PART 02968534-001 

0030HTERM1258PART 02958007-180 



o 



o 



5,27 



SUGGESTED SOLUTIONS FOR EXERCISES 



PSB GENERATION 



//PSBGENOl 

// 

//C.SYSIN 

PCB 



01tSTUDENT01,MSGLEVEL=l 
PSBGEN,MBR = STUDNT0.1 



SENSEG 
SENSEG 
SENSEG 
SENSEG 
SENSEG 
PSBGEN 
END 



JOB 
EXEC 
DO « 

TYPE=DB,DBDNAME=DI21PART,PR0C0PT=A,KEYLEN=43 



PARTROOT 
STANINFOtPARTROOT 

STOKSTAT, PARTROOT 
CYCCOUNTtSTOKSTAT 
BACKORDR, STOKSTAT 

LANG=C0B0LtPSBNAME=STUDNT01 



/* 



DBD GENERATION 



//DBDGENOl JOB 
// EXEC 

//C.SYSIN DO 



DBD 

OMAN 

SEGM 

FLDK 

SEGM 

FLDK 

SEGM 

FLDK 

SEGM 

FLDK 

SEGM 

FLDK 

DBDGEN 

FINISH 

END 



NAM 
DD1 = 
NAME 
NAME 
NAME 
NAME 
NAME 
NAME 
NAME 
NAME 
NAME 
NAME 



OltSTUDE 
DBDGEN, M 

E=DBASE01 
PARTBtDEV 
=PARTROOT 
=PARTKEY, 
=STANINFO 
=STANKEY, 
=STOKSTAT 
=STOCKEY, 
=CYCCOUNT 
=CYCLKEY, 
=BACKORDR 
=BACKKEY, 



NT01,MSGLEVEL=1 
BR=DBASE01 

,ACCESS=ISAM 

l=2311rDLI0F=BASEI 

,PARENT=0,BYTES=50,FRE0=250 

TYPE=C,BYTES=17tSTART=l 

,PARENT= PARTROOT, BYTES= 85, FREQ=1 

TYPE=C,BYTES=2,START=1 

, PAR ENT = PARTROOT, BYTES = 1 60, FREQ = 2 

TYPE=C,BYTES=16,START=1 

,PARENT=STOKSTAT,BYTES=2 5,FREO=l 

TYPE=C,BYTES=2,START=I 

,PARENT=ST0KSTAT,BYTES=75,FREQ=0 

TYPE=C,BYTES=10,START=1 



/* 
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SUGGESTED SOLUTION FOR SYSTEM DEFINITION 



o 



c 



//IMSDEFOl JOB 
// EXEC 

//ASM.SYSLIB DD 
//ASM.SYSPRINT DD 
//ASM.SYSPUNCH DD 
//ASM.SYSIN DD * 
IMSCTRL 

APPLCTN 
DATABASE 
TRANSACT 
APPLCTN 
DATABASE 
TRANSACT 
APPLCTN 
DATABASE 
TRANSACT 
APPLCTN 
DATABASE 
TRANSACT 
APPLCTN 
DATABASE 
TRANSACT 
LINEGRP 
LINE 

TERMINAL 
NAME 
LINE 
DFSCTBMT TERMINAL 
NAME 
NAME 
MASTTERM 
LINE 

TERMINAL 
NAME 
LINEGRP 
LINE 

TERMINAL 
NAME 
POOL 

SUBPOOL 
NAME 
NAME 
NAME 
PROCLIB 
PGMLIB 
PSBLIB 
DBDLIB 
MACLIB 
RESLIB 
MSGQUEUE 



848,CABANISS,MSGLEVEL=ltMSGCLASS=3,CLASS=AtPRTY=8 
ASMFC,REGI0N=96K 

DSN=ICS.MACLIBtDISP=SHR 

SYS0UT=3 

SYS0UT=3 



PROCLIM=(5tlO) 



PR0CLIM=(5,10) 



PROCLIM=(5tlO) 



PR0CLIM={5,10) 



SYSTEM=(MVT,ALL) ,MAXI0=10,MAXREGN=3 ,MSGBUFF=10 t 
C0MMSVC=(244t245),QSAMSVC=243,0CENDA=Z8,CKPT=500 
PSB=STUDNTOI 
DBD=DI21PART 

C0DE=TRANS0I,PRTY=(2t6t3) 
PSB=STUDNT02 
DBD=DI21PART 

CODE=TR ANS02 , PRTY= (2,6,3) 
PSB=STUDNT03 
DBD=DI2IPART 

C0DE=TRANS03,PRTY= (2,6,3) 
PSB=STUDNT04 
DBD=DI21PART 

C0DE=TRANS04,PRTY=(2,6,3) 
PSB=STUDNT05 
DBD=DI2IPART 

C0DE=TRANS05,PRTY=(2,6t3) , PROCL IM= ( 5 ,10 ) 
DDNAME=DD2740S 

FEAT=P0LL,AD0R=032 

ADDR=E2 

L2740S2 

FEAT=P0LL,ADDR=033 

ADDR=E2 

MASTER 

L2740S1 

MASTER 
FEAT=P0LL,ADDR=034 
ADDR=E2 
L2740SM1 

DDNAME=DD2740A,FEAT=(TRANSCTL, SWITCHED), UN I TYPE=2740 
FEAT=AUT0ANS,ADDR=035 
ADDR=E2 
INQUIRYl 

FEAT= AUTOCALL, ZONE= I 
TELN0=2774211 
LTERMl 
LTERM2 
LTERM3 
PDS=CLA. PROCLIB 
PDS=CLA,PGMLIB 
PDS=CLA. PSBLIB 
PDS=CLA,DBDLIB 

PDS=ICS.MACLIB,UNIT=2314,V0LN0=IMSLIB 
PDS=CLA.LOAD,UNIT=2311,VOLNO=CLASSl 

REUSE=(YES,150),QCRIN=( INOCR,CLA. IN0CR,23II ,CLASS ) , 
0CROUT=(OUTOCR,CLA,OUT0CR, 2311, CLASS) , 
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MSGOUT=(OUTMSG,CLA.OUTMSGT2311tCLASS) , 
MSGIN=( INMSG,CLA.INMSG,2311tCLASS) 
SPACE 2 
IMSGEN UT1SDS=TEMPSET,ASMPRT=0N,LEPRT=(XREF,LIST) 
END 
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PART NUMBERS IN DATA BASE 





02AN960C10 


023012^160-001 


02921125-009 




02CK05CW181K 


0230135'l8-002 


02922291-002 




02CSR13G104KL 


025613'l-016 


02922399-001 




02JANIN976B 


0260003-118 


02925363-136 




02MS16995-28 


026525^10-002 


029 25380-101 




02N51P3003 


02652799 


02930331-102 




02RC07GF273J 


028663-102 


02930331-123 




02106B1293P 


0268663-10^1 


02930333-001 




02250235-001 


0269857-635 


02915325-086 




02250239 


027060654P001 


02950060-006 




02250241-001 


027il38995P002 


02951017-001 




0225079 


027il5il949P001 


02958007-180 


o 


02250796 


027618032P101 


02960528-067 




02250891 


027618289P0il9 


02968531-001 




02252252-003 


0276308il3P513 


02971810-010 




023003802 


027736817P001 


02975105-001 




023003806 


02803008035 






023007228 


0282125-056 






023008027 


028212^1-610 






023008838 


0282125-869 






023009228 


028^1353-156 






023009270 


0290-3033331 






023009280 


0290-3033665 






023013^105-002 


02905537-381 






023013^*12 


02906028-010 




v_y 


023012i»19-001 


02907021-782 
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